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IMPSUB.PLR; 1 PAGE 1 IMP Sitbroutines 


-stitl IMP Subroutines 


-comnt | 
RELOAD 


Routine to force a reload by smashing all checksums. 


and then jumping to the restart code. 
Call with JSB R4,RELOAD, never returns. 


Page LCode 
® 
reload: 
1308 7078 OOB4 setmap MO,mappkg 
130C 3078 FCOO 
1310 4008 4162 jmp relpkg 


FCOO 0400 Page PkcCode 
relpkg: 

4162 7078 O2FA lida r7,hotlim 

4166 1207 addm rO.(-r7) 


4168 7078 OOAE 1da r7,mapcom 
416C 3078 FCO4 sta r7.%map2 


;called from all pages 


;jump to code on the package page 


:force reload; smash all cksums. 
:smash local checksum 


4170 4898 lda ri,=nmseg y;how much memory * 16 
4172 4838 7EOO Ilda r3.=nmsegt D8* H200- H200 :;last map 
repeat ‘ 
4176 4828 0020 Ilda r2,= H20 716 per word 
417A 5059 809E Ida r5,m2/memseg(-r1) ;existing memories. 
repeat :for each page 
417E S75A OEBG if r5 .bit. bittab(-r2) ;page exists. 
4182 SAOD 
4184 3038 FCO2 sta r3,%map1 
4188 7078 60B8 Ilda r7,mi¢tlimit ; last cksummed word. 
418C 8008 ifnot quit ipage truly there. 
418E 49F2 sub r7,=words ;addr of last word in cksum. 
4190 SBO6 if nminus & r7 > =mi#vtlimit :2m2 . 
4192 4E78 6OB8 
4196 8CO3 
4198 3207 addm rO,(r7) :smash if within cksum region. 
419A 8001 ifnot quit 
endif 
endif 
endif 
endif 
419C 4938 0200 sub r3,= H200 :mext page. 
41A0 88EF until loop 
endrepeat 
41A2 4E90 until ri = =O ;done all mem segments. 
41A4 81E9 
endrepeat 


41A6 4008 OA1C tr wst 


;Mew restart system 
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.comnt | 

FLUSH and FLUSHB 

Routines to add buffers to the system free list. 

FLUSHB first restores map 2 to MAPV2. 

R2 enters with address of buffer CHAIN word. ; 
Inline argument is which ownership bit to clear; if other bits are Still 
on the buffer is still owned elsewhere, so nothing more happens. 
Otherwise, the appropriate buffer accounting counter is incremented, and 


NF adjusted as needed. 
Page LCode 


1314 4868 O2F8 oflush: Ilda sp,=Istack 
1318 9O00D br flush 


131A 4868 O2F8 ofishb: Ida sp.=Istack 


131E 1076 routine flushb, local r1, inline-ri, arg r2 
1320 1016 
1322 6017 
1324 307E 0002 
1328 7078 OOD2 Iida r7,mapv2 ;this entry restores V2 page 
132C 3078 FCO4 sta r7,%map2 
1330 9006 entry flush, local ri, inline r1, arg r2 
1332 1076 
1334 1016 
1336 GO17 
1338 307E 0002 
133C 7078 OOD2 Ida r7,mapv2 ;* check maps 
1340 7678 808C if r7 <> m24slfptr td 
1344 9103 

: Trap 1143,<:map error in flush - page 49> 
1346 3078 FCO4 sta r7,%map2 

endif 

134A 4E28 92CO if r2 < =chain } r2 > junk 
134E 9204 
1350 7628 63CA 
1354 8CO3 . 
1356 E2E3 Trap 1343,<;tried to Flush non-buffer - page 49> 
1358 9032 else ‘ 
135A 771A OGAO ifnot ri .bit. where-chain(r2) :bad owner 
135E 8A05 
1360 7O7A OGAO Ilda r7,where-chain(r2) 
1364 E2E5 Trap 1345,.<:tried to flush non-owned buffer - page 49> 
1366 902B else ;good owner: 
1368 7078 A3C8 lock r7,nf ;adjust counters first 
136C SAFE 


136E 751A OGAO eor ri,where-chain(r2) ;remove owner bit 


Pluribus IMP 1301 
IMPSUB .PLR; 1 


1372 
1376 
1378 
137C 
1380 
1382 
1386 
1388 
138A 
138C 
138E 


1390 
1392 
1394 
1398 
139C 


13A0 
13A4 
13A8 
13AA 
13AC 
13BO 
13B2 


13B6 
13B8 


13BC 
13BE 


4F18 
SAOG 
301A 
3078 
SO1E 
4A18 
1016 
4891 
2196 
9B02 
4AF4 


3012 
4890 
301A 
3078 
TO7E 


3O7A 
7078 
SAFE 
8906 
7078 
SAFE 
4878 


3027 
3028 


6016 
6006 


FFC1 


O6AO 
A3C8 


6308 


O6AO 
A3C8 
0002 
OSFO 
A3C6 
A3C4 


A3C4 


A3C6 


"ae 
PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 51 
PAGE 3 IMP Subroutines 
Ff C1 «bits #-12whetp :more owners 
sta ri,where-chain(r2) ;just restore owners 
unlock 7,nf 
else 
add r1,=cntrs 
push ri s;points to proper counter 
Ilda ri,=1 
subm r1,@(sp)+ ;decrement source count 
ifnot minus yreturned one to pool 
add r7,=1 ;so bump NF 
endif 
sta ri,(r2) ;becomes queue end 
Ida r1i,=0 
sta ri,where-chain(r2) sno owner or count 
unlock r7,nf :;done with counters 
lda r7,2(sp) 7* debugging aid: caller 
: sta r7,2(sp) 
sta r7,flushd-chain(r2) ;buffer is active 
lock r7,freend ;free list tail 
if odd ;list was broken 
lock r7,free :or empty 
Ilda r7,=free tnow free will be unlocked 
endif 
sta r2,.(r7) :ifree  ;enqueuve buffer 
unlock r2,freend 
endif 
endif 
endif 


endroutine flushb 
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.comnt | FREGET, FGET 

Routine that obtains a buffer from the free list. 

Inline argument is what buffer counter to charge. 

Returns with unpacked (XIM) address in ri, CHAIN 

word address in R2 Map 2 is set up to point to the buffer. 

FAIL return if free list empty or no count available. 
Entry FGET with WHERE counter in r3 already 


13CO0 1076 routine fget, arg r3, result ri-r2/m2, local r3 
13C2 1036 
13C4 9006 entry freget, inline r3, result ri-r2, local r3, result m2 
13C6 1076 
13C8 1036 
13CA 6037 
13CC 307E 0002 
13D0 7078 OO0D2 Ilda r7,mapv2 ;always set map 2 
13D4 3078 FCO4 sta r7,%map2 
begin ckcount 


13D8 4813 Ida ri,r3 
13DA 4818 OOSE and r1,=whetr ;just counter field 
13DE 7028 A3C8 lock r2,nf ; lock counters 
13E2 SAFE 
13E4 7079 G3D8 lda r7,cntrs(r1) :get source count 
13E8 SBO6 ifnot minus ;must use slush pool 
13EA 7628 63D0 if r2 <= minf :no more in pool 
13EE 9C02 
13FO 9036 leave ckcount :fix lock and fail return 
endif 
13F2 49A1 sub r2,=1 ;remove one from pool 
endif 
13F4 4AF1 add r7,=1 
13F6 3079 63D8 sta r7,cntrs(r1) ;modify counter 
13FA 3028 A3C8 unlock r2,nf :;done NF. get buffer from FREE 
: (OVER) 
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13FE 
1402 
1404 
1406 
140A 
140C 
1410 
1412 
1414 
1418 
141A 
141C 
141E 


1420 


1424 
1428 
142C 
1430 
1434 
1436 


1438 


143A 
143C 
1440 
1444 
1446 
1448 


144A 
144E 
1452 
1454 
1458 
145A 


145C 
1460 
1462 
1464 
1466 


7028 
SAFE 
991B 
TO7A 
BA17 
303A 
7032 
8909 
7078 
SAFE 
7032 
8902 
48F1 


3078 


3038 
TOTE 
307A 
4078 
6036 
6006 


E2E1 


48F1 
3078 
7028 
QAFE 
9902 
E20A 


3078 
7028 
SAFE 
3179 
9B02 
4AA1 


3028 
6036 
6076 
4FFO 
4007 


A3C4 


OG6AO 


O6AO 


A3C6 


A3C6 


A3C4 
0002 
OSFO 
153E 


A3C4 
A3C6 


A3C8 


PAGE 5 IMP Subroutines 


:FREGET continued 


lock r2,free snow get a buffer 
ifnot odd ;non-empty free list 
Ilda r7,where-chain(r2) 
if zero :no stray owners 
sta r3,where-chain(r2) ;new count, owner 
Ida r3,(r2) ;next free buffer 
if odd :just emptied free list 
lock r7,freend :must modify endpointer 
Ida r3,(r2) >in case new FLUSH happened, 
if odd :still empty 
lda r7,=1 7so mark end too 
endif 
unlock r7.freend 
endif 
unlock r3,free 
jda r7,2(sp) :get caller 
sta r7,flushd-chain(r2) :save caller in flushd 
call qunpack :set up ri, m2 
return 
endif 
Trap 1341.<;free list error, non-zero where - page 52> 
endif 
Ilda r7,=1 
unlock r7, free 7 odd tbye bye free list 
lock r2,freend now Jock free list’s tail 
if even :there is no freelist. tail} 
Trap 1012,<;threw away free list tail - page 52> 
endif 
unlock 7, freend 77:0dd ;tail is now indeed a tail 
lock r2,nf ;undo counts 


subm r7,cntrs(r1) 


ifnot minus ;using slush 
add r2,=1 ;adjust shared pool 
endif 
end ckcount 
unlock r2,nf :done with counts 


fail return 


endroutine freqet :ifget 


457 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 
IMPSUB.PLR; 1 PAGE G6 IMP Subroutines 


.comnt 

WHEORB and WHEORM 

Routines to diddle (via EOR) where ownership or counter bits 
WHEORB first fixes map 2 


R2 enters with CHAIN word address. Bits to change are inline. 
1468 4868 O2F8 owheob: Ida sp,=Istack 

146C 1076 routine wheorb, local ri, inline ri, arg r2 
146E 1016 

1470 6017 

1472 307E 0002 


1476 7078 OOD2 Ida r7,mapv2 


147A 3078 FCO4 sta r7,%map2 ;fix V2 page map first 
147E 9006 entry wheorm, local ri, inline r1. arg r2 
1480 1076 
1482 1016 
1484 6017 
1486 307E 0002 
148A 7078 OOD2 Ida r7,mapv2 7;* map check 
148E 7678 808C if r7 <> m2#slfptr ed 
1492 9103 
; Trap 1144,<;map error in nwheom - page 53> 

1494 3078 FCO4 sta r7,%map2 oF 

endif Be 
1498 7078 A3C8B lock r7,nf ; lock counters 
149C SAFE 
149E 351A OGAO eorm ri,where-chain(r2) 
14A2 3078 A3C8 unlock r7,nf ;done counters 
14A6 6016 endroutine wheorb 


14A8 6006 
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IMPSUB.PLR; 1 PAGE 7 IMP Subroutines 
.comnt 


TTSKPUT, TSKPUT 

Queues a packet for TASK and pokes the TASK PID 
TTSKPUT - timestamp the buffer first in IT word 
TSKPUT - just queue it and poke TASK 

R2 has packet pointer (CHAIN word). 


14AA 1076 routine ttskput, arg r2 

14AC 1016 save ri ;need this for UNPACK 
14AE 4078 1512 call unpack ypoint to buffer for timestamp 
14B2 7OF8 62E8 set it(ri) = ®clock ;timestamp buffer 
14B6 3079 0096 

14BA 7078 OOD2 setmap m2,mapv2 :fix map2 

14BE 3078 FCO4 

14C2 6016 restore ri 

14C4 9002 entry tskput, arg r2 

14C6 1076 

14C8 48F1 set (r2) = #1 ;last buffer on queue 
14CA 3072 

14CC 7078 A3B6 lock Itq ;lock task queue. 
14D0 SAFE 

14D2 3OA8 6G3BA sta r2,@etq ;enqueue buffer 

14D6 3028 63BA sta r2,etq 

14DA 3008 A3BE6 unlock Itq 

14DE 4878 0040 set @®pid = =task ;poke task. 


14E2 3OF8 OOAC 
14E6 6006 endroutine ttskput/tskput 
;POKEM - set rare flag and poke 


;TRYMOD - poke modem output 
;r4 enters with modem id block 


14E8 1076 routine pokem, arg 4 

14EA 307C OO2A set i2mpok(rd) = r7 :$debug ;set rare events flag 
14EE 9002 entry trymod 

14FO 1076 

14F2 787C OOOE ldab r7,motpid(r4) ;output pid. 

14F6 3OF8 OOAC sta r7,®pid 

14FA 6006 endroutine trymod 
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-comnt 

UNPCKC and UNPACK ~ 

Unpack a packed buffer address into R1 (XIM) and M2. 

R2 enters with packet CHAIN word address. 

UNPCKC has inline ownership bit(s) to check; FAIL return if not owned. 


14FC 4868 O2F8 ounpck: Ida sp.=Istack 


1500 6017 routine unpeckc, inline ri, arg r2, result ri, result m2 
1502 1076 
1504 771A OGAO tst r1i,where-chain(r2) ;this owner okay? 
1508 8A04 if zero :no} 
150A 6076 fail return ;do no more 
150C 4FFO 
150E 4007 

endif 
1510 9002 entry unpack, arg r2, result r1, result m2 
1512 1076 
1514 7018 OOD2 Ida r1i,mapv2 7* check maps first 
1518 7618 808C if ri <> m24#slfptr s+ : 
151C 9103 

+ Trap 1147,.<;* map error in unpack - page 55> 

151E 3018 FCO4 sta r1,%map2 si 

endif 7 
1522 7O1A FCBO 1da ri,point-chain(r2) ;packed pointer 
1526 3018 FCO4 sta ri,%map2 ;set map2 
152A A294 sll ri,4 ;to get page offset - 
152C 4818 1FFE and ri,=packm ‘ 
1530 4C18 8000 ior r1,=m2 ;address returned XIM 
1534 6006 endroutine unpekce 
-comnt 
CUNPACK 


like UNPACK, but first sets CHAIN word odd, and loads CHAN into R3. 


1536 1076 routine cunpack, arg r2, result ri-r3, result m2 
1538 703A 0350 Ida r3,chan-chain(r2) 

153C 9002 entry qunpack, arg r2, result ri-r2, result m2 
153E 1076 

1540 48F1 Ida r7,=1 

1542 3072 sta r7,(r2) 


1544 4078 1512 call unpack 


1548 6006 endroutine cunpack 
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.comnt | 

DEQUE 


routine to remove a buffer from a queue. 

inline argument is ownership bit to check, R1 enters with queue address. 
Returns after an UNPACK, with R1 unpacked buffer pointer (XIM), 

R2 buffer CHAIN word address, and R3 CHAN for this buffer. 

M2 is set up to access the buffer. 

Fail return if buffer error or queue empty 


154A 6037 routine deque, inline r3, arg r1, result ri-r3, result m2 
154C 1076 
154E 7028 OOD2 Ida r2,mapv2 :* check map setting 
1552 7628 808C if r2 <> m2/slifptr at 
1556 9103 
; Trap 1146.<;* map error in deque - page 5G> 

1558 3028 FCO4 sta r2,%map2 Hie 

endif ies 
455C 7021 Ida r2,(ri1) :get queue head 
155E SSOF ifnot odd ;there’s a buffer 
1560 773A O6AO tst r3,where-chain(r2) ;owned? 
1564 SAO9S ifnot zero :yes 
1566 7072 Ida r7,(r2) ;next buffer 
1568 8903 if odd ;no more 
156A 3019 O002 sta ri,words(r1) y;point endpointer at start 

endif 
156E 3071 sta r7,(r1) ;new queue head 
1570 4078 1536 call cunpack ;and set up R1, R3, M2 
1574 6006 return 
endif 

1576 E2A2 Trap 1242,<;buffer ownership error - page 56> 
1578 48F14 Ilda r7,=1 
157A 3071 sta r7,(rt) ;empty the queue 

endif 
157C 7619 0002 if ri <> 2(ri) ;queue empty check 
1580 9104 
1582 E2FO Trap 1360,<;fixed half-empty queue - page 56> 
1584 3019 0002 sta r1,2(r1) sand fix it 

endif 
1588 6076 fail return ;got no buffer 
158A 4FFO 
158C 4007 


endroutine deque 
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.comnt | 
sioin - Start 1/0 input to buffer whose chain pointer is in r2. 


This routine starts input while checking for a subset of 
possible interface failures, in an attempt to prevent a buffer from 
being read into the wrong place. Will not detect failures 
in the high-order 7 bits of a 20-bit address, nor in the low 
4, but will check the middle 9. 


call sioin with: 
jlda r2,<chain word> 
Ilda r5,<io blk> 


call sioin,buflen ;assumes read into first word of buffer. 
| 
158E 1076 routine sioin,local ri,arg r2,local r3.,inline r3,arg r5 
1590 1016 
1592 1036 
1594 6037 
1596 307E 0004 
159A 49B2 sub r3,=hrdoff ;compensate for hardware offset. 
159C 701A FCBO lda ri,point-chain(r2) :;buffer address. 
15A0 4078 OEDG call xsioin :start transfer. 
15A4 6036 endroutine sioin 
15A6 6016 


15A8 6006 
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.comnt 

hsioin - Start host input, to buffer whose chain is in r2. 


fhsioin - Start host input for fake host 


HSIOIN starts host input to specified place. Special handlers 
are called via HITABLE for actual hardware (SIOIN) or for 
fake hosts of all kinds (i.e., VOH, fakes, TIP); the latter 
routine is FHSIOIN. See HITABLE in HACCON.PLR. 


-comnt | 

inline R1 = start of data 

inline R3 = length of data 

R2 = chain pointer 

R4 = host parameter block 
RS = device address 
15AA 1076 routine hsioin, local ri,inline r1,local r3.inline r3,arg r2 
15AC 1016 
15AE 1036 
15BO 6017 
15B2 6037 
15B4 307E 0004 

garg r4-r5 s 

15B8 302C 0032 sta r2,hibf(r4) ;save buffer being filled 
15BC 4839 0002 sub r3,=hrdoff(ri1) ;length of data 
i5CO A694 srl ri.4 : 
15C2 721A FCBO add ri,point-chain(r2) :start of data in block 
15C6 707C 0002 Ida r7,hostyp(r4) :for this host type 
15CA 40FF 12BE call @hitable(r7) :do host input 
15CE 6036 endroutine 
15DO0 6016 
15D2 6006 
comnt | 

R1 = packed start address 

R3 = length of input 

R5 = device 
15D4 1076 routine fhsioin, arg ri, arg r3, arg r5S 
15D6 301D 0002 sta ri,starti(rs) :start input here 
15DA A294 sll r1.4 ;unpack and form end addr 
15DC 4B18 1FFE and ri,=packm 
15EO 4A31 add r3,r1 
15E2 303D 0004 sta r3,endi(r5) ;end of input 
15E6 4C18 8000 ior ri,=m2 
15EA 301D 0010 sta ri,fakesi(rS) 7;JUAM buffer pointer 
15EE 4878 2000 Ilda r7,=hbusy 
15F2 347D 0006 iorm r7,statih(rs) :make interface busy 
15F6 787D OOOF Idab r7,bhpid(r5) 
15FA 30F8 OOAC sta r7,@pid ;and wake up FAKE 


15FE 6006 endroutine fhsioin 


463 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 60 
IMPSUB.PLR; 1 PAGE 12 IMP Subroutines 


.comnt 

division routine 

ri contains divisor r2 contains dividend 
returns with quotient in ri, remainder in r2 


1600 1076 routine divide,arg ri-r2,result ri-r2,uses r3 
1602 48F1 Ilda r7,=1 :initialize counter-when O, stop 
1604 48B0 jlda r3,=0 ;initialize remainder accumulaaor 
repeat 
1606 A191 ria ri.1 ;do next binary place 
1608 A1Bi ria r3,1 
160A 4E32 if r3 >= r2 
160C 9202 
160E 4932 sub r3.9r2 
endif 
1610 A2F1 sll r7.1 jadvance “counter" 
1612 BAFA until zero 
endrepeat 
1614 A191 ria ri,1 
1616 4823 Ilda r2.r3 


1618 6006 endroutine divide 
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-INSERT "“IMPDDT" 
-INSRT IMPDDT 


Pluribus IMP 
IMPDDT.PLR; 1 


0010 


7280 
728C 
7298 


1301 
PAGE 1 


.radix 


ccled: 
clled: 
ddtied: 
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IMP’s DDT code 


-Sstitle IMP’s DDT code 


H10 


page Vars 
-blkw 6 
-blkw 6 
.blkw 6 


;this File in hex 


;tty’s leader (default to DDT here) 
; leader for ";" messages 
;where ddt sends its responses 


Pluribus IMP 1301 
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IMPDDT.PLR; 1 PAGE 2 IMP’s DDT code 


0000 


-parity O 


;IMP DDT wakeup 


Page LCode 


jjddt: 


161A 4078 OFBC 
161E 4008 4C46 
FCOO 0200 


call finddt 
tr ddtwak 
Page DDTCode 


ddtwak: 


4C46 4078 42B8 
4C4A 7018 A272 
4C4E SA08 

4CSO 48F4 

4C52 30F8 OOAC 
4C56 4818 0012 
4C5A 4078 1750 


call ddtpol 
Ilda ri,ddpoke+foo 
ifnot zero 

poke bitpid 


lda r1,=ddtpid 
call rstart 
endif 


4CSE 4008 1072 tr loopmv 


;imp TTY wakeup 


Page LCode 


jjtty: 


1622 4078 OFBC 
1626 4008 4C62 
FCOO 0200 


4C62 4078 4134 
4C66 7078 OOAO 
4C6A 4A78 0078 
4C6E 3078 6266 
4C72 7078 A268 
4C76 SAOS 

4C78 4878 0012 
4C7C 30F8 OOAC 


4C80 7018 A270 
4C84 9A05 

4C86 4818 0014 
4C8A 4078 1750 


call finddt 

tr ttywak 

Page DDTCode 
ttywak: 

call ttypol 
Ida r7,stime 
add r7,=blitrat 
sta r7,poltim 
if m3/dxtflag 


set ®pid = =ddtpid 


endif 
lda ri,ttpoke+foo 
ifnot zero 
Ida r1i,=ttypid 
call rstart 
endif 


4C8E SOE8 tr loopmv 


10:57:29 PAGE 63 


;no parity bits please 


;PIDs to poke? 
+ yup 


sand restart DOT 


:update time of IMP’s polling 


ypass chars to DDT? 


:if so. poke DDT 


yprocess to restart 
:TTY PID level 
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4c90 
4c92 
4c96 
4c98 
4C9A 
4c9c 
4CSE 
4CA2 
4CA4 
4CAG 
4CAA 
4CAC 
4CAE 


4CBO 
4CB2 


4CB6 
4CBA 
4CBE 
4CC2 
4cC6 


FCOO 
43A6 
FCOO 


EFOO 
1076 
4078 
0043 
4875 
8AOE 
1056 
7058 
4ED1 
93106 
4078 
E10E 
6056 
6006 


6056 
4848 


4C48 
3048 
3038 
4078 
SOF4 


0200 
4c90 
0200 


479C 


62E2 


44CA 


OOFD 


8000 
7284 
7286 
4404 


PAGE 3 IMP’s DDT code 


;crosspatch to IMP. dispatched from C with 
> host in r4 (prefix) imp in r3 (ddaccum+sum) 


impInk= O357_ H8& ;nominal link to use’ 
routine cntic, uses ri, arg r3-r5 . 
call iddtout,’C ;echo a "C" for crosspatching 
ifnot r5 pipfx :two args . 
SAVE RS 


LDA RS,MINE 
CMP RS5,= Di 
BE ISTR 
CALL RUBOUT 
Trap 416,<;Invld attmpt to use Xpatch - page 63> 


RESTORE RS 
RETURN 
ISTR: 
RESTORE RS 
Lda r4,4# HFD ;default ddt fake 
endif 
ior r4,é#getpri ;always priority 
sta r4,ccled+hstl ;set up dest host 
sta r3,ccled+dstl ;put into leader 
call argreset ;reset arguments 


endroutine cntic 


$dopatch ddtdisp+< O3*words>, DDTCode 
cntic 
page DDTCode 
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4CC8 
4CCA 
4CCE 


1076 
7018 
4E91 
9107 
7018 
4E91 
9103 


E10F 
6006 


7078 
3078 
7018 


62E2 


4c44 


OOB6 
FCo4 
729E 
729D 
OOFC 


62E2 


80C6 


4C42 


473C 


0010 
0046 
G2AE 
62AE 


4798 
4820 


OOD2 
FCO4 


PAGE 4 IMP’s DDT code 


:IMP’s Control-O: turn override on/off 
routine cntlo, uses ri 
LDA R1,MINE 
CMP R1,= D1 
BE MSTR 
LDA R1,OVRTAB+2 
CMP R1,= D1 
BE MSTR 
NOTME: 
Trap 417,<;Invid attmpt to enable ovride - page 64> 
RETURN 
MSTR: 
setmap m2,mapfak yneed fake page 


lda r1,ddtled+dst1] 
Idab r7,ddtledthstl+1 ;check for valid NCC site 
ifnot r7 >= #OFC & ri = mine } byte r1 = m24nccimp 


sti ces ;combine host, imp 
for ri vr7 
Ilda r7,=lovrtab 
repeat 

if loop 

return 

endif 

until ri = ovrtab(-r7) :got a okay source 


endrepeat 


endif 

call iddtout, ‘O ;type the char 
lda r7,#ovrbit snow flip switch 
Ida r1,='F ; turn of fF? 


eorm r7,anom 
tst r7,anom 


ifnot zero ;nope, now is on 
add r1,=’N-‘F ;change what we type 
endif 


call ddtout 
call itextout, %3space 


setmap m2,mapv2 :don’t need fakes no mo’ 


RETURN 
endroutine cntlo 


$dopatch ddtdisp+< 017*words>,DNDTCode 
cntlo 
Page DDTCode 
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IMPDDT .PLR; 1 


.comnt | 

NEWARG to put something into the DDT input buffer and 
prefix with whatever already in buffer 
PUTARG to just put something into buffer. 


1076 
1016 
4078 
002C 
7078 
7278 
3078 
3008 
6016 
9002 
1076 
3018 
3008 
4078 
7078 
6006 


.comnt 
TLOOKUP to get char from tty and check if match char 


in table @inline 1, 


4739C 


A2B4 
A2B6 
62BA 
62B0 


62B4 
62B2 
4830 
A2BC 


from inline 2 


4070 
4072 
4074 
4D76 
4D7A 


4D7C 
4D7E 
4D80 
4084 
4086 
4088 


4D8A 
4D8C 


4D8E 
40390 
4D92 
4094 
4D96 


6047 
6057 
1076 
4078 
4834 


6874 
8A06 
7078 
6076 
4FFO 
4007 


4E71 
81F8 


4943 
A2C1 
4A45 
5034 
6006 


4098 


A2BC 


PLURIBUS V2.9B 
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»Stitle OPHELP: 
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PAGE 66 


IMP Operator commands 


;some routines to facilitate ophelps 


routine newarg, 
save ri 
call iddtout, 


arg ri 
ascicomma 


lda r7,ddaccum+foo 
add r7,sum+foo 
sta r7,prefix 
set pfx 
pop ri 
entry putarg 


sta ri,ddaccum 

set something 

call numout 

lda r7, locopen+foo 
endroutine putarg 


routine tlookup, inline r4, 
call opget 
Ilda r3,r4 
repeat 
Idab r7,(r4)+ 
if zero 
Ida r7, locopentfoo 
fail return 
endif 


until r7 = ri 


endrepeat 

sub r4,r3 

sljJ r4,1 

add r4,r5 

Ida r3,(-r4) 
endroutine tlookup 


;inewarg 


inline r5, 


;save this 
; type a comma 


;get accumulated argument 
;add whatever 

;to make prefix 

;get number back 

;Save new argument 


;and say it exists 


;stop unexpected stores 


then return corresponding entry 


result r3, 


;get char to match’ 
;save start 


;get char From table 
;no chars left : 
;close any open location 
; lose , 


;got right one 


show far we’ve gone 
;get dispatch/value/data 
; out of table in r5 
:get proper argument 


uses ri/r3-r5 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 67 
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.comnt JA character get routine that ignores semis from 
TTY/DDT fakes. returns ri 


4098 1076 routine opget, result r1 
repeat 
4D9A 4078 47D0 call ddtget 
409E 4E18 OO3B while ri = #semicolon 
4DA2 8104 
4DA4 4078 4798 call ddtout :send back 
4DA8 SOF9 endrepeat 


4DAA 6006 endroutine opget 
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-comnt | 


PLURIBUS V2.9B 25-Jun-87 10:57:29 
PAGE 7 OPHELP: 


IMP Operator commands 


don’t want this this time 


;get message generator parameters 


routine opmessgen 
call opget 
if ri = #'M 
Ilda r1,#faktyp 
call putarg 
Ilda ri,4#mgnl 
call newarg 
endif 
endroutine opmessgen 


sright confirmation 
;page setting 

;put into ddt’s stuff 
;where it is 


$dopatch ddtdisp+<’G*twords>,ddtcode 


opmessgentovrrid 
page ddtcode 


-comnt | don’t want this this time 


;set up lights 
routine oplites 

call opget 

lda r7,/#watchi 

and r3,#packm 

jor r3,4#m2 

jlda r2,mapvar 

1f 7S +i PFx 

lda r2,Ilmap(r4) 
endif 
ifnot ri = #°U 


add r7,#4watch2-watchi 


ifnot ri = #’L 


ifnot ri = #'R 


return 
endif 
lda ri,#watch 
sta ri,watchi 


lda r3,#watchh 


endif 
endif 


sta r3,(r7)+ ;;watch1 watch2 
sta r2,(r7) ;;watmi watm2 


endroutine oplites 


;where to put 

;just offset 

; through m2 

;default map if none given 
;map given 

;use logical only 


snot upper light 
jinaybe lower 

snot lower 

;not reset- no good 


;it’s a reset, 
;so fix upper 
;set up for lower 


;set address 
;and map 


$dopatch ddtdisp+<’Ltwords>, ddtcode 


oplitest+ovrrid 
page DDTCode 


PAGE 68 
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IMPDDT.PLR;1 PAGE 8 OPHELP: IMP Operator commands 
-comnt | 


do modem and host ophelps 

"M" gets modem, "H" gets host 

"B" returns block, "L" loops at interface, "M" loops at Bell modem 
"U" unloops 


4DAC 1076 routine opmodem 
4DAE 4A38 0018 add r3,#<<m2pb1k-h2pb1k>/words>-nfh ::ddaccum sum 
4DB2 9002 entry ophost 
4DB4 1076 
4DB6 4078 44D4 call argreset 7get rid of current input 
4DBA A2B1 sll r3.1 77ddaccum sum ;byte index 
4DBC 4AB8 add r3,#nfh2 
4DBE 4B38 OOFF and r3./ HFEF ;remove byte overflo if any 
4DC2 4E38 0048 if r3 <= #m2pend-h2pbik jmake sure reasonable 
4DC6 SCOE 
4DC8 702B 6326 Ida r2,h2pbik(r3) ;get block (lge modem # get host) ) 
4DCC SSOB ifnot odd ;block exists 
4DCE 4B28 7FFE and r2,4#7FFE :neg (when device goes) OK 
4DD2 4078 4D70 call tlookup, blist, ctable ;decide what to do 
4DD6 4DE8 
4DD8 4DEE 
4DDA SA04 ifnot fail ;okay to do 
4DDC 4812 ida: rt,.r2 ;move block around 
4DDE 4073 call (r3) ;do it 
4DEO 6006 return 

endif 

endif 
endif 

4DE2 4078 44CA call rubout 
4DE6 SOFD endroutine ophost 
FCOO 0200 $dopatch ddtdisp+<’M'words>,ddtcode 
443A 4DAC opmodem 
FCOO 0200 $dopatch ddtdisp+<‘Htwords>,ddtcode 
4430 4DB4 ophost 


FCOO 0200 Page DDTCode 
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4DE8 
4DE9 
4DEA 
4DEB 
4DEC 


4DEE 
4DEE 
4DFO 
4DF2 
4DF4 


4DF6 
4DFA 


4DFC 
4E00 


4E02 
4E04 


4E06 
4EOA 
4E0C 
4EOE 
4E10 
4E12 
4E16 
4E18 


4E1c 
4E20 


4E22 


4000 


8000 


0020 


0024 
OO1E 


4820 


PAGE 9 OPHELP: IMP Operator commands 


blist: -asciz /BLMU/ 


.even 


table ctable : 
putarg ;B- return block address 


intloop ;Ll- loop at interface 
modloop ;M- loop externally at modem 
unloop ;U- unloop modem/host 


endtable ctable 


; loop interface internally 
intloop: 

Ilda ri,#hloopi’ yimloopi 
br blkinsrt 


;loop interface at modem (modems and VDHs) 
modloop: 

Ilda ri,#mloope 
br blkinsrt 


;Cclear all loops 
unloop: 
Ida ri,4#0 


routine blkinsrt 


Ilda r7,iobloc(r2) ;distinguish between host and get device addr 
lda r7.(r7) :get devtyp,. .devnum 
srl r7,8 ;just devtp 
if r7 = #hostid_-8 ;a host 
sta ri,hiloop(r2) ;set the bit 
else 
sta ri,mloop(r2) 
endif 


call itextout, %3space 


endroutine blkinsrt 
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.comnt | IMP panic and nice starts, loads, halts here] 


.comnt |NICE stops: dispatched from "N"| 


opnice: 
4E24 1076 save r7 
call tlookup, stops, nstpflags ;get confimation char, then flag 
4E26 4078 4D70 
4E2A 4E58 
4E2C 4E62 
4E2E 9006 br pstops 
.comnt |PANIC stops: dispatched from "P"| 
oppanic: 
4E30 1076 save r7 
call tlookup, stops, pstpflags :get confirmation char and then4E32 4078 4ND70 save r7 
4E36 4E58 
4E38 4E5C 
.comnt |common routine to put flag into nice stop| 
pstops: 
4E3A Q9AOC ifnot fail 
4E3C 7078 62B4 if ddaccum = #dempas ;good password 
4E40 4E78 CAFE 
4E44 8107 
4E46 3038 651C sta r3,nsrtf 
4E4A 4078 4820 call itextout, %3space 
4E4E 465E 
4E50 6006 pop ro tireturn 
endif 
endif 
4E52 4078 44CA call rubout :no good 
4E56 6006 pop ro 
4E58 48 stops: .asciz /HSR/ shalt, start. reload 
4E—E59 53 
4ES5A 52 
4E5B (ole) 
.even 
4E5C table pstpflads y;panic stop flaas 
4E5C 0003 p.halt 
4ES5E 0001 p.restart 
4EGO 0002 p.reload 
endtable pstpflags 
4E62 table nstpflaqgs :flags for nice stop , 
4EG2 FFFF n.halt 
4E64 FFFD n.restart 
4E66 FFFE n.reload 
endtable nstpflags 
FCOO 0200 $dopatch ddtdisp+<’N*words>,ddtcode 
443C 4E24 opnice 
FCOO 0200 fdopatch ddtdisp+<’P*words>,ddtcode 
4440 4E30 oppanic 


FCOO 0200 paae DDTCode 
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uribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 72 
IMPDDT.PLR;1 PAGE 11 OPHELP: IMP Operator commands 
-comnt |Return iokill address: dispatch on "K"| 
4E68 1076 routine opkillio 
4EGA 4078 4098 call opget 
4EGE 4E18 0049 if ri = a#'t 
4E72 8108 
4E74 4890 lda ri,#70 ;page to find iokill 
4E76 4078 4D5C call putarg 
4E7A 4818 411E Ida ri,#iokill 
4E7E 4078 4D3E call newarg 
endif 
4E82 6006 * endroutine opkillio 
FCOO 0200 fFdopatch ddtdisp+<’K*words>,ddtcode 
4436 4E69 opkilliotovrrid 
FCOO 0200 page DDTCode 


.comnt |get help for a neighbor asking for reload 
dispatch from "R"| 


4E84 1076 routine opreload 
4E86 4078 4D98 call opget 
4E8A 4E18 OO4E if ri = #'N :good confirm 
4E8E 8107 
4ES0 3038 6566 sta r3,pchelp ;7:ddaccum sum ;where to send setups 
4E94 4078 4820 call itextout, %3space 
4E98 465E 
4ESA 9003 else 
4E9C 4078 44CA call rubout 
endif 
4EAO 6006 endroutine opreload 
FCOO 0200 $dopatch ddtdisp+<’R*words>,ddtcode 
4444 4E85 opreload+ovrrid 
FCOO 0200 page DDTCode 
.comnt |Clear traps: <esc>| 
4EA2 1076 routine opclearil| 
4EA4 4078 479C call iddtout, ‘% 
4EA8 0024 ‘ 
4EAA 4078 4098 call opget 
4EAE 4E18 0043 if ri=A#'c ;conf irmed 
4EB2 810F 
4EB4 4838 OOA2 lda r3,=cilend-cilovf 
repeat 
4EB8 574B AOCO tst r4,cilovf+foo(-r3) 
4EBC 88FE until loop 
endrepeat ; 
4EBE 49B1 sub r3,=1 ;:minus ;what a bum: set r3 minus 
4ECO 3038 6206 sta r3,dinit ;set flag to refresh display 
0001 «lif nz PSE ‘ 
4EC4 7038 A162 lda r3,pilovp+Ffoo 
4EC8 4078 4820 call itextout, %3space ;confirm 
4ECC 465E 
4ECE 9003 else 
4EDO 4078 44CA call rubout 
endif 


4ED4 6006 endroutine opclearil 


@podzpp*<Spuom,g}H >+dsSipzpp yozedops 


- 
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IMPDDT.PLR;1 PAGE 12 OPHELP: IMP Operator commands 


;DDT timeout dispatch 


FCOO 0200 page DDTCode 

4ED6 ddttab=. 
4ED6 O00O0 .word O 

vdhp4: 

4ED8 iCBC tosst 

4EDA pddttab=. ;points to free entry in ddttab 
4EDA 0000 .word O 
4EDC O000 .word O 
4EDE 0000 .word O 
4EEO 0000 .word O 
4EE2 0000 .word O 
4EE4 0000 -word O 
4EE6 0000 -word O 
4EE8 0000 -word O 
4EEA 0000 -word O 
4EEC 0000 -word O 

eddttab: 

4EEE 0000 .word O ;end of list 


;define macro for inserting into ddt timeout list 
-macro dstolist subrt 


.if nz pddttab-<eddttab-words> :if any room left 
$dopatch pddttab, ddtcode ;add the entry 
subrt 
pddttab=, ;get set for next entry 
tosst 
-word O 
ott? 
-error DDT timeout list overflowed 
.ende 
.endm 


;get table into page pointer 
FCOO 0200 $dopatch mO/topntr, ddtcode 
40BC 4ED6 ddttab 


0008 -rpadix 010 ;octal for everybody else | 
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IMP .MAIN; 1 PAGE 7.4 OPHELP: IMP Operator commands 


- INSERT "DISPLY" 
- INSRT DISPLY 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 76 
DISPLY.PLR;1 PAGE 1 IMP video display handler 


-Stitle IMP video display handler 
0010 -Radix WH10 ;this source in hex 
0000 -parity O 7:7 bit ascii here 
page Vars 
locdef dsplok.<;display variables lock - page 75> 


page DDTVars 


SBS3E dspsp: -blkw 1 a 
5B40 dssyssp: .bikw 1 

5B42 stack ds,< D12> 

5BSA 

SB5A 


;some useful display characters: 
0008 home= 010 shome char oan infotons 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 
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162A 
162C 
1630 
1634 


1636 
1638 
163A 
163C 
163E 
1640 
1642 
1646 
164A 
1G4E 


1650 
1652 
1656 
1658 
165C 
1660 
1662 
1664 
1668 
166A 
166C 
166E 
1670 
1672 


OFBC 
1650 


SB3E 
5B40 
72A4 


B2A4 


5B40 
SBSA 


5B3E 


10:57:29 PAGE 77 


PAGE 2 IMP video display handler 


page LCode 


routine jdsply, uses ri-rs 


call Finddt 
call dsppol 
endroutine jdsply 


page LCode 


routine dspsleep, local 


sta sp,dspsp 
lda sp.dssyssp 
unlock mi#dsplok 
pop ro 

dsppol: 
save r7 
lock r7,dsplok 


sta sp,dssyssp 
lda sp,/dsstack 
lda r7,r7 7 :;dsplok 
bo dsplyloop 
Ilda sp,dspsp 
endroutine dspsleep 


:get the DDT page 
;and poll DISPLAY 


;save our stack 

; and aet system’s stack 
srelease both stacks 
:return to system 

sentry from system 

isave return 

:get contro! of stacks 


:save system stack 
;default stack 


:broken lock- reset 
:get display’s stack 
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Pluribus IMP 
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0001 


0010 


6300 
6302 
6304 
6306 
6308 
630A 
630C 
630E 
6310 
6312 
6314 
6316 
6318 
631A 
631C 
631E 
0008 


62FO 
62F2 
62F4 
62F6 
62F8 
G2FA 
62FC 
62FE 


1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 78 
PAGE 3 IMP video display handler 


;table of addresses to display. 


tf -Z PSE 


.comnt | 
table dsploc 
mapcom 
maprel 
mapddt 
mapddt+2 
mapddt+4 
mapddt+6 
mapvar 
mapvar+2 
mapvar+4d 
Imap+%nvarsp 
Imap+%nvarsp+2 
mapre|l+%ncodep 
mapddt+%ncodep 
mapddt+%ncodep+2 
mapddt+%ncodep+4 
mapddt+%ncodep+6 
endtable dsploc 


iff 3Z PSE 


table dsploc 
-rept D116 
hdispt+<.rpcnt*words> 
-endr 


.rept D8 
mdisp+<.rpenttwords> 
.endr 


endtable dsploc 


;ARPANET case: 


;mapcod ;if imp is there 
;smapfak :if imp is there 
smaptip ;if tip is there 


timapv2 ;if imp 


;maptvr 
;mapb1 ;if imp 
;mapb2 


7 ;mapcod+%ncodep 
7 :mapfak+%ncodep 
+; ;mapt ip+%ncodep 


;PSE case 


;hosts 


;modems 


) 485 


.endc ‘Zz PSE 
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1708 


4078 
4AC1 
4B48 
8AFB 


7078 
BA2A 
7078 
9A27 
4078 
OO0O0C 
0001 
48A0 


6O1A 
70114 
4078 
171A 
4078 
0020 
4E28 
92F5 


4078 
48A0 
48BA 


6O1A 
4078 
171A 
4078 
0020 
49B1 
BAF7 


4078 
4E28 
8204 
TOTA 
8AEE 


SOCE 


1636 


OOF F 


626A 
A206 


171E 


1674 
103C 
171E 


0030 


170A 


60C2 
103C 


171E 


170A 
OOAO 


60C2 


PLURIBUS V2.9B 
PAGE 4 


dsplyloop: 
repeat 
repeat 
call dspsleep 
add r4.,/1 
and r4,H#OFF 
until zero 
endrepeat 
ifnot dspflag 


if dinit+foo 


call idspout, asciff 
- if nz PSE 
Ilda r2,#0 


repeat 


Ida ri,dsploc(r2)+ 


Ida r1,(r1) 
call hexout, 


call idspout, 


until 


endrepeat 
call dspeol 
.ende 
Ilda r2,#0 
repeat 


Ida r3,41cilbuf/words 


25-Jun-87 
IMP video display handler 


dspout 
ascispace 


r2 >= #1dsploc 


33Nz PSE 


10:57:29 PAGE 793 


;while the seas are wet 


ronly every 6 seconds 
:Okay to display 


;need to display traps 


:;move to home on some terminals 


;Platform: display modem/host status 
into table of maps to display 


; index 
;write maps 

7a variable to write 
;its contents 

i;type this map 


:end of table 


; index to traps 


;counts up to next trap 


repeat iprint trap line 
Ida ri,cilops(r2)+ 
call hexout, dspout ;display number 
call idspout, ascispace 
sub r3,/1 ;count one word 
until zero ;until next trap 
endrepeat 
call dspeol ;set up next line 
until r2 >= #9cilend-cilops :until past end 


while cilops(r2) 


endrepeat 
endif 
endif 
endrepeat 


:stop after first zero 


7 forever 


7Sspace in between 
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170A 
170C 
1710 
1712 
1716 
1718 


171A 
171C 
171E 
1720 


1722 
1726 
1728 
172A 
172C 
1730 
1734 
1738 
173C 
173E 


1076 
4078 
OO0O0D 
4078 
OOOA 
6006 


1076 
9003 
6017 
1076 


4078 
6296 
810B 
48F6 
3078 
4878 
30F8 
4078 
9OF3 
6006 


171E 


171E 


OFD2 


6274 
0014 
OOAC 
1636 


PAGE 5 IMP video display handler 
routine dspeol, uses ri 

call idspout, ascicr 

call idspout, ascilf 
endroutine dspeol 


routine dspout, arg ri 


entry idspout, inline ri, uses rj 
repeat 
call rbfput, ttyobf ;try to put char on tty 
while equal rbuffer full- wait 


set dsppok #Hdsppid 


set @®pid = /#ttypid ;start the terminal running 
call dspsleep 
endrepeat 
endroutine dspout 
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DISPLY.PLR; 1 PAGE 6 IMP video display handler 
;two routines to control display (called via ddt) 
1740 1076 routine cntll, arg ri 
1742 4078 4798 call ddtout ;clear screen 
1746 4878 8000 lda r7,#sign 
174A 3478 6206 iorm r7,dinit jmark screen as needing display 
174E 6006 endroutine cntll 
FCOO 0200 $dopatch ddtdispatch+< 014*words>, DOTCode 
43B8 1740 cntll 
FCOO 0200 page DDTCodcde 


;turn display on and off. Dispatched from D 


4EFO 1076 routine dspswitch, arg ri 
4EF2 4078 4820 call itextout, dsptxt 
4EF6 4F16 
4EF8 4818 OO4E Ilda ri,#’N ;default to typing "n" 
4EFC 7078 A2G6A Ilda r7,dspflag+foo :check flag 
4FOO 8A05 if zero :was off, turn on now 
4FO2 3008 626A sta r0O,dspflag 
4FO6 4818 0046 Ida ri,4#’'F : ;to type "off" 
endif 

4FOA 4078 4798 call ddtout ; type last char 
4FOE 4078 4820 call itextout, criftxt 
4Fi2 458E 
4F14 6006 endroutine dspswitch 
FCOO 0200 $dopatch ddtdisp+<4*words>,ddtcode 
43A8 4EFO dspswitch 
FCOO 0200 page ddtcode 
4FiG 44 dsptxt: .asciz /DO/ 
4F17 4F 
4F18 0O 

.even 


0008 -radix 010 ;default octal for the rest - 


Pluribus IMP 1301 PLURIBUS V2.96 25-Jun-87 10:57:29 PAGE 82 
IMP .MAIN; 1 PAGE 7.5 IMP video display handler 


- INSERT "IMP.LOCAL", LOCAL 
- INSRT IMP.LOCAL 
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Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 83 
IMP .LOCAL; 1 PAGE 1 IMP video display handler 


-Stitle IMP local memory code 
Page LCode 
.comnt | 


Call rstart via r7 with a pid in ri. The pid will be saved 
in a circular buffer (ring), if that pid is not already stored in... 
the ring. r2 and r3 are destroyed; if the ring is full rstart will 
trap and ignore the call. 

The specified pid is poked by rstgo, which itself has a very 
small pid assigned. Each time rstgo is run, it pokes 
one and only one pid from ring, and removes that pid from ring. 


1750 7038 A4B2 Rstart: Ida r3,ringlk ; lock the ring structure. 

1754 SAFE bz .-4 pwait until we own the ring. 
1756 7038 64B6 lda r3,ringf ;pointer to first entry in ring. 
175A 7028 64B4 Ida r2,ringce ;number of entries in ring. 

175E SA11 bz rsto2 ;empty, don’t search ring. r 
1760 6GE13 rstOO: cmpb ri,(r3)+ ;Is this pid value already in ring? 
1762 9113 be rsto3 :found, don’t enter same pid twice. 
1764 4E38 64D0 cmp r3,=ringe ;Last byte in the ring? 

1768 9203 bg rstoOi 7no, continue search. 

176A 4838 64B8 Ida r3,=ring iyes, re-initialize pointer. 
176E 49A1 rstO1: sub r2,=1 ; look at next entry. 

1770 8AF8 bnz rstoo 

1772 7028 64B4 Ida r2.,ringce ;enter another pid into buffer. 
1776 4E28 0018 cmp r2,=ringiIn ;is the buffer full? 

177A 9203 bg rstO2 ;no, all is well. 

177C E2C8 Trap 1310,<:ringc overflow in rstart - page 82> 
177E 9005 br rsto3 iring is full, take error exit. 
1780 4AA1 rstO2: add r2,=1 ; increase number of entries. 
1782 3028 G4B4 sta r2,ringce 

1786 3813 stab r1i,(r3) :store the pid in the buffer. 
1788 3008 A4B2 rstO3: unlock ringlk ;uNTock ring. ’ 
178C 48B2 lda r3,=stkpid ;Poke the restarter pid so 

178E 30B8 OOAC sta r3,@pid :remover (Rstgo) will be run. 


1792 4007 jmp (r7) ;return to caller. 
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1794 
1798 
179C 
17A0 
17A4 
17AG 
17AA 
17AE 
17B2 
17B6 
17BA 
17BE 
17CO 


17¢4 


7078 
3078 
7018 
7418 
8910 
4078 
7078 
3078 
3078 
7078 
3078 
4894 
4078 


4008 


OOBO 
FCOO 
SDBC 
SEBO 


ogs3gs0 
OOoDO 
FCO2 
FCO6 
ooD2 
FCO4 


1750 


1086 
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;routine to call block transfer routine BLT 
;runs at very low priority (4) 
;calls rstart if still more to do upon exit 


blitcal: setmap mO,maprel 


Ilda ri,bltst yibltact 

ior ri,pkcst yipkcact 

if odd :if either BLT or PKC active 
call polblit ;poll BLT process 


setmap <m1,m3>,mapvar ;all maps were smashed 


setmap m2,mapv2 


Ilda ri,=bltpid 
call rstart 
endif 
jmp loopin 
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;shared reliability timeout routines 


; test r6 to see if it is a subroutine call 
; call return with r2 = target of caller 
; retx doesn’t check r2 


.comnt 
retchk: cmp r2,-2(ré6) ;does call target match? 

qutpat retuq ;tsk 

bne retu3 7;no: return not-equal condition 
retx: lda r5,-4(r6) twas it a jsb r7, ? 

qutpat retug :tsk 

cmp r5,=.first jsb r7,0 
retu3: jmp (r7) ;fail returns not-equal condition : 
retuq: rst %e ;Clear equal flag. 

jmp (r7) ;return not-equal 
FCOO 0400 Page PkgCode 

;routine to put a broken packet on diagnostic queue. 

41AA 1076 routine ckqput,arg r2 
41AC 4078 146C call wheorb,whm2i?whf2h z:move to fake queue. 
41BO COOO 
41B2 7078 AFCA lock staiob+tlockfd ;enqueue bad guy 
41B6 SAFE 
41B8 30A8 63C2 sta r2,@eckq 
41BC 3028 63C2 sta r2,eckq 
41CO 3008 AFCA unlock staiob+tlockfd 
41C4 7078 OOBG6 lda r7,mapfak 
41C8 3078 FCO4 sta r7,%map2 
41CC 3008 SEC6 sta rO,m24<dgsb+snon> 
41D0 7078 OOD2 Ilda r7,mapv2 
41D4 3078 FCO4 sta r7,%map2 


41D8 6006 endroutine ckaqput 
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IMP.LOCAL;1 PAGE 4 IMP local memory code 


Page Lcode 
.comnt | 


Ipcksubr - store packet length from r3, 


then cksum packet. 


pcksubr - cksum packet to length in bufe. 


These routines are the system’s packet checksummer. Stores. 
(lpceksubr only) packet length, then calculates 
correct offset in subchn to do checksum calculation. r3 returns 
with the checksum. returns zero if checksum ok, non-zero if 


checksum bad. 


17C8 1076 routine Ipcksubr,arg ri/r3,local r5,result r3 
17CA 1056 : 
17CC 49B2 sub r3,=hrdoff :compensate for hardware offset. 
17CE 3039 0080 sta r3,bufe(r1) :save buffer end pointer. 
17D2 9003 entry pcksubr,arg ri,local r5,result r3 
17D4 1076 
17D6 1056 
17D8 70398 00390 Ilda r3,bufe(rt) ;buffer end pointer. 
17DC 4AB2 add r3.=hrdof f :compensate for hardware length offset. 
17DE 48FO lda r7,=0 :figure out where to start subchn 
17EO 4973 sub r7,r3 ;negative length. 
17E2 AGB1 sri or3,1 ;initialize checksum to include length. 
17E4 4851 Ida r5,r1 ;address of buffer to checksum. 
17EG 407F 1888 call subchn(r7) ;checksum packet. 
17EA 8AO05 if zero ;checksum good. 
17EC 6056 return zero 
17EE 6076 
17FO 4FFO 
17F2 4007 
endif : 
17F4 6056 endroutine Ipeksubr :,pcksubr ;normally returns non-zero. 
17F6 6006 


; subtract chain 


7r3: accumulates checksum 
775: pointer to what to checksum 


0048 .rept 072 
.xlist 


sub r3,(r5)+ 


. list 
.endr 
1888 4007 subchn: jmp (r7) 
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188A 
188E 
1892 
1894 
1898 
189C 
18A0 
18A4 
18A8 
18AA 
18AE 
18B0 
18B4 
18B8 
18BC 
18CO 
18C4 


18C6 
18C8 
18CC 
18CE 
18D2 
18D6 


18D8 


701B 
7O6C 
SAFE 
304B 
4828 
302B 
301B 
7O6C 
8A04 
486B 
AGE4 
4A68 
306C 
300C 
786C 
30E8 
4007 


1076 
702B 
9A06 
352B 
4078 
2000 


6006 


0004 
405C 


OOOE 
4008 
000Cc 
0004 
OOSE 


76FO 


0100 
OOSE 
405C 
OOOE 
OOAC 


OOOE 


OOOE 
1332 
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pee EEF AHOL Hitt*+ tr eeee 


put leaders onto the control queues 
also see rfledp/ledpc 
called from hi,forus,dedtrn, and impdwn 
ri ois destroyed 
r2 is destroyed 
r3= transaction block (preserved) 
r4= host parameter block 
r6é is destroyed 
r7= entry 
; uses temp2 
;enter at ledpO with leader already set-up 
;enter at ledp2 with new trhstl in ri (forus) 
;enter at ledpf to fix up leader queue (see dedtrn), 


ae 40 oe oe ce oe oe oe oe 


page LCode 
ledpO: lida ri,trhstl(r3) :will copy back 
ledp2: Ida r6,lockih(r4) ; lock the host 
bz .-4 
sta r4,trhost(r3) 7new owner 


Ilda r2,= H4000+ttledr 
sta r2,trntim+<Ottrstat>(r3) 


sta ri,trhstl(r3) ;maybe new if enter. at ledp2 
Ida r6,nxtled(r4) yany leaders pending here? 
bnz ledpi ;yes , 

ledpf: Ida r6,=-trnblk(r3) ;no, get our trnbik offset 
srl r6,4 

ledpi: add r6,= H100 ;and count this new one 
sta r6.nxtled(r4) y into host’s pointer 


unlock lockih(r4) 
ldab r6,hotpid(r4) 
sta r6,®pid 

jmp (r7) 


;Ccall here via r7 to flush trpack if it exists 
773 has trnblk address 


routine trnfls, uses r2, arg r3 
lda r2,trpack(r3) 
ifnot zero 
eorm r2,trpack(r3) 
call flush,whhi 


endif 
endroutine trnfls 
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18DA 


18DC 
18EO 
18E4 
18E6 
18EA 
18EE 
18FO 
18F4 
18F8 
18FA 
18FE 
1900 
1904 
1906 
1908 


190A 
190E 
1910 
1914 


1918 
191C 
1920 
1924 


OOOA 


7049 
703C 
SAFE 
705C 
JO1IC 
9A24 
703D 
4F38 
BA14 
4F38 
SA06 
702C 
E604 
48B4 
9O1E 


7O1C 
SAFE 
703C 
408C 


300C 
307C 
300C 
4008 


81CO 
404E 


0020 
0054 


oooc 
2000 


0100 


0034 


405C 


0056 
0050 


405C 
0050 
404E 
108E 
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IMP local memory code 


0 EF ee ER imp to host **# tte kee eee 


page HLCode 


; pid entry ih 
+ start of main loop ihnext 


nonops: 


ih: 


ihqos: 


ihdba: 
ihdb: 
ihdb2: 


H8+2 :rhosfake hostip ;bit table of host types 
;fakes and TIPs get no nops 


Ida r4,mblks(r1) 

Ida r3,ihloc(r4) 

bz .-4 

Ida r5,iobloc(r4) 

Ida ri,ihgoin(r4) ;also not uncer lockih 

bz ihro ;host timed out - reset the world 
Ida r3,statoh(r5) 

tst r3,=hbusy 


bnz ihdb2 shardware not yet done 
tst r3,=hquit 
bz ihqodS sno quit 


Ida r2,hisp(r4) 

Trap 3004,<;Host output err - page 87> 
Ida r3,=hstqut 

br ihrs 


Ilda ri,lockih(r4) 
bz .-4 

Ida r3, ihwq(r4) 
jmp @ihlo(r4) 


unlock lockih(r4) 
sta r7,ihlo(r4) 
unlock ihloc(r4) 
tr loop 
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;wait software reset completion 


1928 4078 1918 ihdeo: jsb r7, ihdba ;sleep a bit 
192C 783C OO1F ihdead: Idab r3,hihd(r4) shi signals via hihd 
1930 4EB4 emp r3,=hninit ;4 means resetting 
1932 91FB be ihdeo ;resetting still 
1934 9030 br ihr7 ;for a reset sequence 
1936 48B2 ihro: lda r3,=htardy 
1938 707D 0006 if statih(rS) .nbit. #hready ‘ 
193C 4F78 1000 
1940 8A02 
1942 48B1 Ida r3,=hrdown 
endif 
1944 707C 405C ihrsd: lock lockih(r4) ;now lock host 
1948 SAFE 
194A 707C 0002 ifnot hostyp(r4) ;:hosreal ;can’t reset fakes 
194E 8A05 
1950 4878 0100 lda r7,=hreset+<<data& HF>/words> ; 
1954 307D OOOC sta r7,statoh(r5) ;:ihledr ;reset output 
endif 
1958 300C 0054 set ihgoin(r4) 
195C 4E48 7210 if rd <> #fakeh3 ;dont try to discard discard 
1960 S11A 
1962 7E3SC OO1F if byte r3 <> hihd(r4) :no change 
1966 9105 
1968 383C OOI1F stab r3,hihd(r4) 
196C 3008 6512 set ophgo 
endif 
1970 4078 2F40 ihri: call ledget 
1974 SOFE br ihri ;more on leader queue 
1976 4868 O2F8 Ida sp,=lstack 
197A 702C 4068 set r2 = ihbuff+foo(r4) ;was a buffer being sent? 
197E SAO03 ifnot zero :yes 
1980 4078 SCIA call ihdmpb :mark buffer inc., dump it 
endif : 
1984 485C OO06O Ida r5,=shq(r4) 
1988 4078 S5COG call ihdump 
198C 485C 0064 Ida r5,=shpq(r4) 
1990 4078 S5COG call ihdump 
endif 
1994 4895 ihr7: Ida r1,=5 
1996 301C OO5A sta r1,specal(r4) 
199A 707C 0002 lda r7.hostyp(r4) ;get the host type 
199E 7O7F OEB6 Ilda r7,bittab(r7) ;get NONOPS bit, this type 
19A2 7778 18DA if r7 .nbit. nonops ;if this host is normal 
19A6 8A03 
19A8 787C 401C Idab r7,homodetfoo(r4) ;then start old format 
endif 


19AC 4078 1918 call ihdba ;sleep here 
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7r3= queue to use 
;r7=time to use 


19BO 4868 O4B0 ihnext: Ida rG,=sec30 


19B4 306C 0052 sta r6,ihtt(r4) 

19B8 703C OO5A Ida r3,specal(r4) 

19BC 8A10 bnz iht ;special control message 
19BE 4078 2F40 call ledget 

19C2 9042 br ihcetl ;non empty control queue 
19C4 483C 0064 Ida r3,=shpq(r4) 

19C8 7063 Ida r6,(r3) 

19CA 8947 bno ihs ;non empty priority queue 
19CC 49B4 sub r3,=shpq-shq 

19CE 7063 Ida r6,(r3) 

19D0 894D bno ih6 ;non empty regular queue 
19D2 300C 405C unlock lockih(r4) 

19D6 7O1C 4052 iho: Ida ri, ihtt+foo(r4) 

19DA 903C br ihd 

19DC 4B38 OO1F  iht: and r3,= HIF 

19EO 49B1 sub r3,=1 ‘ 
19E2 303C OOSA sta r3,specal(r4) ;number of nops to send 
19E6 SA22 bz ihn2 tnow send a reset 

19E8 781C OO1C Idab r1,homode(r4) 

19SEC 8AOB bnz ihn :if already in new format 
19EE 300C 405C unlock lockih(r4) : 
19F2 4818 0400 Ilda r1,=cnop* H100 ;send an old nop 
19FG 486C 8012 lda r6,=ihledr+hendf+2(r4) 

19FA 4078 SBCC jsb r7,ihis 

19FE 4078 191C jsb r7,ihdb 

1A02 300C 405C_ ihn: unlock lockih(r4) 

1AO06 781C 0029 Idab ri,hihost+i(r4) :send a new nop 
1AOA 301C 0014 sta r1,ihledr+hst1(r4) 

1AOE 7018 62E2 Ilda ri,mine 

1A12 301C OO16 sta ri, ihledr+dstl(r4) 

1A16 701C 4018 Ilda ri, ihledr+midl+foo(r4) :rsubtyp 
1A1A 4818 OFOO Ida r1,=hicode 

1A1E 48B4 Ilda r3,=cnop 

1A20 486C 8018 Ida r6,=ihledr+hendf+midi(r4) 

1A24 4078 5BCC jsb r7.ihls 

1A28 9015 br ihd 

1A2A 4818 OFOO ihn2: Ida ri,=hicode ;send a new reset 3 
1A2E 48BA Ilda r3,=creset 

1A30 301C 0010 sta r1, ihledr+netl(r4) 

1A34 303C 0012 sta r3,ihledr+typl(r4) 

1A38 783C 401F Idab r3,hihd+foo(r4) ::hostup 

1A3C SAO5 bz ihctl 

1A3E 703C 402C Ida r3,deadsctfoo(r4) 

1A42 3008 6512 sta rO.ophgo 

1A4G6 300C 405C ihctl: unlock lockih(r4) 

1A4A 486C 8018 Ilda r6,=ihledr+hendf+midl(r4) 

1A4E 4078 SBE68 jsb r7,ihisn ; leader words in place 
1A52 4078 191C_ ih4: jsb r7, ihdb ;wait for control or nothing to do 


4AGG QNaAn jhidle: hr ihnext 
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1A58 
1A5A 
JASE 
1AGO 
1A64 
1A68 
1AGA 
1AGE 
1A72 
1A74 
1A78 
1A7C 
TATE 
1A80 


1A82 
1A86 
1A8A 
1A8C 


1A90 
1A94 
1A96 
1A9A 
1A9C 
1A9E 


4873 
702C 
93908 
702A 
712E 
8B03 


0060 


0350 
0350 


0060 
0056 


0350 
62DA 


0052 
0258 


0056 
0056 


14FC 


5D92 


405C 
000g 
oosc 


65B6 


8700 
65B4 
0010 
OFOO 


0002 
OFOO 


0006 
OOOE 


ooD2 
FCO4 
001C 
OO1F 
OO1A 
5SB68 
191C 
5D08 
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ihs: 


ih6: 
ih7: 


ihgtgo: 


ihraw: 
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Ilda r7,r3 

Ida r2.shq(r4) 

bo ih7 ;empty reg queue but full pri queue 

Ida r2,chan-chain(r2) 

sub r2,chan-chain(r6) 

bnm ih7 ;pri queue has older message 
Ida r7.=shq(r4) 

sta r3,ihwq(r4) ;assume higher-priority is good 


Ida r2,(r7) 7:shq,shpq 
lda r6,chan-chain(r2) 
sub r6,time ;calculate time left for this message 
if r6é < =2 ;packet is old 
set r6 = =2 750 give it at least 2 left 
endif 


sta rG,ihtt(r4) 
if r6 < #seciS ;0ld message, put on q 


sta r7,ihwq(r4) ;oops, there’s an old message 
endif 
Ida r3,ihwq(r4) ;now reget queue we picked 
Ida r2,(r3) ;its head 
call ounpcekc,whih 
if fail 
tr iherr 
endif 
Ilda r6,ri 
unlock lockih(r4) ;patched to JMP IHGTWY by PTIP 
ldab ri.,seqht+i(r6) ;source host 
lda r3,bufb(r6é) ;pointer to receive block 
bo ihraw 7no receive block: raw pkt 
Ida ri.rmcti(r3) ;handling type 
sra ri,4 
and r1,=priled}maxled +:gethan 
jorb ri.rmhost(r3) ;remote host is source 


Ilda r3,=ihledr(r4) 

lda r7,=hicode 

sta r7,(r3)+ :rnetl 
Ida r7,typh(r6) 

and r7,=trcebit+pflags 


sta r7.(r3)+ pitypl 
sta ri,(r3)+ :i;hstl 
Ida r7.srch(r6) 

sta r7,(ra)+ s7sre) 
Ida r7.midh(r6) 

sta r7,(r3)+ >imidl 
Ida r7,(r6) ;i;neth 
sta r7,(r3) ten) 


Ilda r7,mapv2 

sta r7,%map2 

Idab r6,homode(r4) 

and r6,= HiF ;padding 

add r6,=ihledr+lenl(r4) 

jsb r7,ihisn 

jsb r7,ihdb :wait for packet leader to go 
jmp ihpack ;On warm page 
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- INSERT "CONFIG" 
- INSRT CONFIG 
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.stitle IMP Configuration Code 


0001 .if nz MISw :M/I bus special code 
Page LTVars ;space here for now ' 
0040 locflg: .blkw 1 ; local copy of last CKILL 


.ende ;nz MISw 
Page LCode 


.comnt | 

CONFIG 

Configuration code central dispatch. 

Calls routines which configure the system. 

Each code page has address of routine to call as the first 
entry in its timeout table ---TAB, which TOPNTR points to. 
Poked every slow tick by TIMEOUT (TO). 


;process con,pid=conpid 


conloop: ;start here first time around 
repeat 7 forever 

1BO6 4890 Ida ri,=0 

repeat ;for all code pages 
1B08 6079 OOBO Ida r7,lmap(r1)+ 
1Boc 9911 ifnot odd ;page exists 
1BOE 3078 FCOO sta r7,%*mapo 
1B12 7078 40BC Ilda r7,topntr 
1B16 9AOC ifnot zero ;there is a table 
1B18 7027 Ida r2,(r7) ifirst table entry 
1B1A SAOA ifnot zero 
1Bic 1016 save ri ;remember LMAP index 
i1B1E 7078 OOD2 setmap m2,mapv2 ;default map 2 
1B22 3078 FCO4 
1B26 4072 call (r2) ;call indicated routine 
1B28 6016 restore ri ;get back LMAP index 
1B2A 4078 1B42 call csleep ;rest a bit too 

endif 
endif 
endif 

1B2E 4E18 0010 until ri = =%ncodep ;done all code pages 
1B32 81EB 

endrepeat 
1B34 4878 FFFF Ilda r7,=-1 
1B38 3078 620A sta r7,sidflg :;let TIMEOUT run 
1B3C 4078 1B62 call cslee2 :sleep without poke. 


1B40 SO0E3 endrepeat 
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1076 
7078 
1076 


4878 
30F8 
4078 


6076 
TOTF 
3078 
6006 


1076 
1016 
1026 
1036 
1046 
1056 
7078 
1076 


3068 
3008 
4008 


7078 
QAFE 
9907 
7078 
9A04 
7068 
9009 
4868 
4878 
3078 
3008 


6076 
7O7F 
3078 
6056 
6046 
6036 
6026 
6016 
6006 


40BE 


OO2E 
OOAC 
1B62 


OOBO 
FCOO 


8OBE 


654E 
6550 
1072 


A550 


620A 
654E 


6540 
1BO6 
654C 
620A 


OOBO 
FCO4 


PAGE 3 IMP Configuration Code 
;CSLEEP 

;Put the CONFIG process to sleep 
;assumes Mi set to MAPVAR 


routine csleep, local mO, arg mi, result m3 


;poke conpid ;reawaken us too 

Ilda r7,=conpid 

sta r7,@pid ;don’t yet trust the poke macro. 
call cslee2 ;and resume here 


endroutine csleep 


routine cslee2.,local ri-r5,local m2,arq mt,result m3 


sta sp,confsp ;Save the stack pointer too 
unlock mif#conlok 
jmp loopmv 


con: ;enter here from LOOP 
lock conlok 


if nodd & sidflg :stack still good 
lda sp,confsp ;restore stack 

else ;;0dd } not sidflg juse initial stack 
Ilda sp,=constack-<7*words> ;proper stack pointer 
Ilda r7,=conloop ;and process start 
sta r7,constack-words 
sta rO,sidflg ; let CONFIG run now 

endif 


endroutine cslee2 
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FCOO 0000 


567C 5680 
567E 0000 


5680 1076 


0001 
5682 48FO 
5684 3078 


5688 4828 
568C 4818 


5690 5049 
5694 9B12 
5696 787C 
5GSA 4FF2 
569C 8A03 
SGSE 7429 


5G6A2 4078 
5SGA6 8A07 
56A8 4878 
S6AC 3479 
S6BO 4078 


56B4 4078 


56B8 4E90 
S6BA 81EB 


56BC 3028 


6552 


8000 
0010 


635E 


0002 


OEBG 
5SA72 
8000 
635E 
1BBA 


1B42 


T2AA 


PAGE 4 IMP Configuration Code 
page Relcode 
preliability page timeout dispatch 


reltim: relcon sonly has CONFIG code 
Oo 


;RELCON 

ymaintain IMP configuration stuff 

; (1) check blocks in M2PBLK,V2PBLK,H2PBLK 

> (2) check PINs for RTC,modems,hosts,TIPs,VDH’'s 
; (3) sean I/0 devices for new ones to configure 


routine relcon, uses ri-r5s 

lif nz MISw ;M/I bus code running 
clear ckill 

7(1) test each block in M2PBLK,V2PBLK,II2PBLK 


; neg means not yet up 


; loop for M2PBLK 


Ilda r2,=rup4us rinitialize flooding mask 
lda r1,=nmd'words 
repeat 

Ida r4,m2pb1k(-r1) 

ifnot minus ;modem exists. 


if byte phflag(r4) .nbit. #inhrst ;live line here 


ior r2.,bittab(r1) :so add its bit to,mask 
endif 
call mtest 
if fail :modem has troubles: 
Ilda r7.=sign 
iorm r7,mapblk(rt) ;deallocate modem 
call grrpkts :reroute its traffic 
endif 
call csleep 
endif 
until ri = =O ;test each modem. 
endrepeat 


sta r2,rupmsk ;store completed mask 
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; loop for V2PBLK 
;calls null routine unless TIP and/or VDH package loaded 


56CO 4818 0030 Ida r1,=nrh*words ;only for non-fakes 
repeat 
56C4 5049 6376 lda r4,v2pbik+<nfh*words>(-r1) ;its param blk 
56C8 9B15 ifnot minus ;some host here 
56CA 7079 632E Ida r7,h2pb1lk+<nfhtwords>(r1) ;HOSTYP in host block 
56CE 707F 0002 Ilda r7,hostyp(r7) :what host variety 
S6D2 40FF 12FO call @®chostest(r7) ;call a host checker 
56D6 8A0C if fail ;something’s busted 
56D8 4878 8000 lda r7.,=sign 
56DC 3479 6376 jiorm r7,v2pbik+<nfhtwords>(ri)  ;mark host gone 
S6EO 4854 Ilda r5.r4 
5GE2 7079 632E Ida r7,h2pb1k+<nfh*twords>(r1) ;HOSTYP in host block 
S6E6 7O7F 0002 Ida r7,hostyp(r7) :what host variety 
SGEA 40FF 12FC call @®chosinit(r7) sand reinit it 
endif 
S6EE 4078 1B42 call csleep 
endif 
56F2 4E90 until ri = =O 
56F4 81E8 
endrepeat 


; loop for H2PBLK 


56F6 4818 0038 lda r1,=th*words 

repeat 
S6FA 5049 6326 lda r4,h2pbik(-ri) 
S6FE SBOA ifnot minus :;host exists, is being used. 
5700 4078 SAC4 call hotest 
5704 8A05 if fail ;host has troubles 
5706 4838 8000 Ilda r3,=sign 2 
570A 3439 6326 iorm r3,h2pbik(r1) ;forget this host 

endif 
S70E 4078 1B42 call csleep 
endif 

5712 4E90 until ri = =O 
5714 81F3 


endrepeat 
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5716 
S71A 


S71E 
5722 
5726 


572A 
S72E 
5730 
5734 
5736 


573A 
573E 


5742 
5744 
5746 
5748 
S74A 


5S74E 
5750 


4078 
4818 


5029 
7049 
4878 


562F 
810B 
40FF 
8A07 
70793 


4878 
30793 


9002 
88F3 
4F9E 
8A03 
4078 


4E90 
81E7 


1B42 
0100 


80CO 
81CO 
0016 
5650 
5666 
80CO 


1064 
80CO 


1B42 
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:(2) test dispatch structures 


call csleep 
lda r1,=lbase 
repeat 
lda r2,base(-r1) 
Ilda r4,mblks(r1) >;minus 
Ida r7,#1lccbase 
repeat 
if r2 = ccbhase(-r7) 


;base entries to look for 


:this entry matches 


call @ccheck(r7) ;call the checker 
if fail ;some trouble with it 
set r7 = base(ri1) :0ld dispatch for diagnosis 


; Trap 1004,<;Clrd bad BASE dispatch tbl - page 96> 
set base(ri) = #bad 


endif 
break ; look no further 
endif 
until loop ;no more in CCBASE 
endrepeat : 
Tf 71 wAbit. = HE sleep after each group of 8. 


call csleep 
endif 
until ri = =O 


endrepeat 


505 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 98 
CONFIG.PLR;1 PAGE 7 IMP Configuration Code 


:(3) test io space 


5752 48A6 Ilda r2,=useiol-words ;do all of useio 
repeat 
5754 4858 OO1E Ilda r5,= D15*words ;start on next segment 
repeat 
5758 7O7A 5E98 if useio(r2) .bit. bittab(r5) :device exists. 
575C 777D OEB6 
5760 SAOA 
5762 1056 save rS 
5764 A2D3 sll r5,3 ;each bit becomes 10} bytes 
5766 725A 4116 add r5, iobase(r2) ;to get full address 
576A 4078 5864 call consub 
576E 6056 restore r5 ;restore index 
5770 4078 1B42 call csleep 
endif 
5774 439D2 sub r5,=2 ;we will prefer f-bus devices 
5776 8BF1 until minus 
endrepeat 
5778 49A2 sub r2,=2 
577A 8BED until minus 
endrepeat 
577C 48A8 Ilda r2,=nfh*twords :for all fakes 
repeat 
577E SOSA 63GE lda r5,v2pbIik(-r2) ;i0 bloc? 
5782 9903 if even 
5784 4078 5864 call consub 
endif 
5788 4EAO until r2 = =O 
S78A 81FA 


endrepeat 
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:now count how many we‘re configured for 


578C 4818 0010 Ilda ri,=nmd'words ;max modems 
repeat 
5790 5079 635E Ida r7,m2pbik(-r1) 
5734 8BO2 until nminus :got last modem 
5796 88FD until loop ;no modems 
endrepeat 
5798 4A92 add r1,=words :min of 1 modem 
579A 3018 6324 sta ri,modems ;save this information 
S579E 4818 0030 lda ri,=nrh*words imax real hosts 
repeat 
57A2 5079 632E lda r7,h2pb1k+<nfh*words>(-r1) 
5S7A6 8BO2 until nminus ;where have I seen 
57A8 88FD until loop ; this code before? 
endrepeat 
S7AA 4A9A add ri,=<nfh+1>*words smin of 1 real host 
5S7AC 3018 6322 sta ri,hosts ;let others use this 
0001 .if nz MISw ;M/I code now to check CKILL 
57BO 7018 6552 set bufflg,ri = ckill ;remember CKILL, tell Stage MM 
57B4 3018 SESE : 
57B8 4078 1B42 call csleep ;force wakeup here} 
57BC 7618 0040 if ri <> locflg mmy last memory of CKILL 
57CO 910C 
57C2 3018 0040 sta ri1,locflg ;update it 
57C6 3008 ASSO unlock conlok 
57CA 4878 OO2E set ®pid = =conpid :get everyone here} 
57CE 3O0F8 OOAC 
57D2 E102 Trap 402,<;Changing buffer page allocation - page 98> 
57D4 4048 OAIC jsb r4,wst sand back into Stage 
endif 


-ende ;nz MISw 


57D8 6006 endroutine relcon 
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FCOO 
41DA 
41DC 
41DE 
41E0 
41E2 


41E6 
41E8 
41EA 
41EC 


41FO 
41F2 
41F4 
41F8 
41FA 
41FE 
4200 
4204 
4206 
4208 
420C 


420E 
4212 
4214 
4218 
421A 
421E 


4222 
4226 
4228 
422A 
422E 
4232 
4236 
423A 
423C 
4240 


0400 
1076 
1016 
1026 
1036 
483¢C 


7013 
48A1 
3023 
303B 


4821 
990A 
4078 
0101 
300A 
7012 
4078 
SOF6 
4AB4 
4E3C 
8CED 


702C 
9A08 
4078 
0101 
300A 
4078 


702C 
SAOE 
890A 
4B28 
783C 
7038 
4078 
9004 
4078 
0100 


0034 


0002 


1480 
OSFO 


14AA 


003C 


4026 
1480 


OSFO 
14AA 


4028 
FFFE 
OO1A 
OEB6 
55D2 


131E 
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;RRPKTS 
;Reroute packets waiting for th 
;packets will be held by TASK, 


7 10:57:29 PAGE 100 


is modem 
since INCH word is O 


;modem param block pointer in R4 
page RutCode 
routine rrpkts, arg r4, local ri-r3, uses r5 


lda r3,=ssentq(r4) 
repeat 
lda 
lda 
sta r2,(r3) 
sta r3,epriq-spriq(r3) 
repeat 
lda r2,ri 
until odd 
call wheorm,whi2m?whts 


ri,(r3) ;;spriq sregq 


sta rO,flushd-chain(r2 
Ida ri,(r2) 
call ttskput 
endrepeat 
add r3,=4 
until r3 > =sregq(r4) 


endrepeat 


Ida r2,snding+foo(r4) 
ifnot zero 


;start w/unacked but sent packets 
;empty this q 

;get head of q 

;mark q empty 

+ mark head 

;point tail at head. , 

;give contents of q to tsk 


:;buffer to re-route 
7q empty, done 
k ;change ownership 
) shold off buffer timeout 


;hnext buffer 


i;get to next q 


CALL WHEORM, WHI2M?WHTSK 


SET FLUSHD-CHAIN(R2) 
CALL TTSKPUT 


ENDIF 
LDA R2, later+foo(r4) 
IFNOT ZERO 
if odd 
and r2,=-2 


Idab r3,modem(r4) 

lda r3,bittab(r3) 

call rupfls 7;uses 
else 

CALL FLUSHB, WHI2M 


endif 
endif 


; (OVER) 


;not to be flushed 


;routing 
;clear odd bit 


;bit for this modem 
rs :flush our use on RUPQ 
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4242 
4246 
4248 
424A 
424E 
4250 
4252 
4254 


1BBA 
1BBC 
1BCO 
1BC2 
1BC6 
1BCA 
1BCE 
1BDO 
1BD2 
1BD6 
1BDA 
1BDC 
1BDE 
1BEO 
1BE2 
1BE4 
1BE8 
1BEC 
FCOO 


7O1C 
A691 
4991 
301C 
6036 
6026 
6016 
6006 


1076 
7078 
1076 
7078 
3078 
4078 
8AOA 
6076 
TOTF 
3078 
6076 
4FFO 
4007 
9007 
6076 
TO7F 
3078 
6006 
0400 


o01Cc 


0050 


40BE 


OOB4 
FCOO 
41DA 


OOBO 
FCOO 


OOBO 
FCOO 
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lda ri,maxchn(r4) 
sri rit, t 
sub ri,=i 


sta ri,slots(r4) 
endroutine rrpkts 


global grrpkts=rrpkts 


PAGE 101 
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FCOO 0000 page RelCode 
7 MHPCHK 
;check that a given PID matches given param block 
;R1 is PID, R4 param block 
; look at MINPID(HINPID,BHPID), MOTPID(HOTPID,HBPID) 


57DA 1076 routine mhpchk,arg ri,arg r4 
57DC 7E1C OOOF if byte ri <> minpid(r4) & byte r1 <> motpid(r4) 
S7EO 9107 5 ow 
57E2 7E1C OOOE 
S7E6 9104 
57E8 6076 fail return ;;:hinpid hotpid ;PID mismatch 
ST7EA 4FFO 
S7EC 4007 
endif 

S7EE 6006 endroutine mhpchk 
S7FO 1076 routine hoschk,arg r4,arg ri 
57F2 4844 Ida r4,r4 
S7F4 SBOF ifnot minus 
S7F6 4828 0038 lda r2,=th*twords ;for all host blocks 

repeat 
S7FA 564A 6326 if r4 = h2pblk(-r2) ;found this one 
S7FE 8108 
5800 4078 57DA call mhpchk ;now check its PIDs 
5804 8A04 if fail 
5806 6076 fail return ;OOps 
5808 4FFO 
580A 4007 

endif 
580C 6006 return :;found block and PIDs okay 
endif 

580E 4EAO until r2 = =O ;for all hosts blocks 
5810 81F5 

endrepeat 

endif 

5812 SOFA fail return ;missing host block 


endroutine hoschk 
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5814 1076 routine rtcchk, arg r4, arg ri 
5816 48A4 lda r2,=bsadil 
5818 7038 SDS5A Ida r3,usebus ;buses and rtc’s that exist 
repeat : 
581C 573A OECE if r3 .bit. bittab+ H10(-r2) ;RTC this bus? 
5820 9A09 
5822 707A 0320 Ilda r7.bsadrs(r2) ;bus start , 
5826 707F O008 lda r7,rtcpds(r7) iFirst switch register is pid num 
582A AGF8 sri or7, D8 ;put it low order 
582C 4E71 if r7 =r :match base? 
582E 8102 
5830 6006 return :all we need know 
endif 
endif 
5832 88F5 until loop 
endrepeat 
Trap 414,<;RTC lost--assoc w/traps 10A and 108 (H) - page 102> 
5834 E10C ‘ 
02 
5836 GO76 fail return 
5838 4FFO 
583A 4007 
endroutine rtcchk 
583C 1076 routine modchk, arg ri, arg r4 
583E 4844 lda r4,r4 ;status not carried Over subroutine entry 
5840 8B04 if minus :dead parameter block 
5842 6076 fail return :so don’t do anything 
5844 4FFO : 
5846 4007 
endif 
5848 SBOD ifnot minus 
584A 4828 0010 lda r2,=nmdtwords :find us in M2PBLK 
repeat 
584E 564A 6G35E if r4 = m2pblk(-r2) 
5852 8106 
5854 4078 S7DA call mhpchk ;check PIDs 
5858 8A02 if fail 
585A SOF4 fail return snot one of ours 
endif 
585C 6006 return ;okay PID dispatch 
endif 
585E 4EAO until r2 = =O 
5860 81F7 
endrepeat 
endif 
5862 SOFO fail return ;no such mocem 


endroutine modchk 
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;subroutine that configures any device 
;Ccalls device configuration routine with device number in r2, 
;device address in r5 


5864 1076 routine consub,arg r5,local r2.uses ri,uses r3-r4 

5866 1026 

5868 7035 Ilda r3,(r5) 

586A 4823 Ida r2,r3 

S86C AGB7 srl 73,7 

586E 4B38 OO7E and r3,= H7E ;chuck magic modem bit 

5872 4B28 OOFF and r2,= HFF 

5876 4E38 0020 if r3 < =ldevtab ;see if it’s good. 

587A 8203 

587C 40FB 5884 call @devtab(r3) ;call device configuration routine 
endif 

5880 6026 endroutine consub 

5882 6006 

5884 table devtab 

5884 O7D6 rsucceed 70 - no such device type 

5886 58A4 cmodem 71 - Low Speed Modem (LSM) 

5888 5936 chost 32 - Host Local Controller or HoST (HLC, HST) 

588A O7D6 rsucceed 33 - Checksum/Block Transfer (CBT) 

588C O7D6 rsucceed 74 - Synchronous Line Interface (SLI) 

588E 58A4 cmodem 75 - High Speed Modem (HSM) 

5890 O7D6 rsucceed 36 

5892 O7D6 rsucceed eA 

5894 O7D6 rsucceed 78 

5896 O7D6 rsucceed 39 

5898 O7D6 rsucceed 7A 

589A O7D6 rsucceed 38 

589C O7D6 rsucceed 7C - Adapter, Multiline controller (AML) 

589E O7D6 rsucceed 7D 

58A0 O7D6 rsucceed sE 

58A2 O7D6 rsucceed $F 


endtable devtab 
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S58AG 7E28 12EC 


S8AC 40F8 12EE 


58B8 704A 635E 


S58BE 4078 SASC 


58C6 304A G35E 
58CA 382C OO1A 
58CE 4078 5SBC6 


58D8 4078 5B98 
58DC 305C 0020 


S8E2 487C OO4A 
58E6 307C O04C 


58EC 487C 0034 
58FO 307C 0036 


58F6 303C 0038 
58FA 303C OO03C 
S8FE 7078 63CA 
5902 307C 0044 
5906 307C 0046 
SSOA 4078 1CDC 
S9OE 300C 4048 
5912 300C 4000 
5916 300C 4042 
591A 300C 4024 
SS91E 300C 40B8 
5922 300C 4092 
5926 4078 iCF4 


5930 4078 S9BC 


PAGE 14 IMP Configuration Code 
; CMODEM 
;Configure a modem parameter block; build it if needed. 


; enter with r2 device number from interface 
; r5-interface address 


routine cmodem, arg r2, arg r5S 


if byte r2 >= vd.clip :this is a VDH 
call @icvdh ;configure vdh here. 
else 
if r2 < =rnmd ;number too large? 
S11 (n24 
Ida r4,m2pb)k(r2) ;current param blk 
if minus vneeds initializing | 


call blidbIlk,modien 


if success 
sta r4,m2pb1k(r2) 
stab r2,modem(r4) 
call tst2pid,m2i,i2m 


if success 
-lif nz MISw 

call cmichk 
sta r5,iobloc(r4) 
Ida r3,=1 
Ilda r7.=smiq(r4) 
sta r7.,emiq(r4) 
sta r3,(r7) 
lda r7,=ssentq(r4) 
sta r7,esentq(r4) 
sta r3,(r7) 
sta r3,spriq(r4) 
sta r3,sregq(r4) 
lda r7,junk 
sta r7,filling(r4) 
sta r7,nxtbf(r4) 
call linei2 ;finish the initializing 
unlock Imiq(r4) :finally. unlock locks 
unlock lockm(r4) 
unlock m2iloc(r4) 
unlock i2mloc(r4) 
unlock rtimri(r4) 
unlock dlock(r4) 
call killin ;lines start dead 

else 
Trap 1006,<;BASE/MBLKS wrong for M2I/12M - page 104> 


endif 
endif 
else 
call devinuse 


endif 
encdliFf 
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;CHOST 


;Configure a host parameter block; build new one if needed. 


; r2 contains host parameter block pointer index 
; PS has device address 


5936 1076 routine chost, arg r2, arg r5S 
5938 4AA4 add r2,=nfh ;put fakes at front 
S93A 4B28 OOFF and r2,= HFF 
SS3E 4E28 OOIC if r2 < =th : legal host? 
5942 820A 
5944 A2A1 sll r2,1 
5946 704A 6326 Ilda r4,h2pbik(r2) ;param block this host 
594A 8BO4 if minus yin need of configuring 
594C 4078 5958 call bldhst :build host block (shared with VDH). 
5950 9003 else 
5952 4078 59BC call devinuse 

endif 

endif 


5956 6006 endroutine chost 


515 


uribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 107 
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;BLDHST 
;Build a host parameter block, initialize it if we get one. 
5958 1076 routine bidhst. arg r2, arg r4-r5 
595A 4078 S5SA3C call bldblk,holen ;assign a parameter block 
595E 0070 
5960 9A2D if success ;got one 
5962 304A 6326 sta r4,h2pblk(r2) ;set H2PBLK 
5966 382C OO1D stab r2,holhn(r4) ; local host index 
5S6A 4078 SBCE call tst2pid,hi.,ih ;set up PID dispatches 
SSGE 2B46 
5970 18DC 
5972 8A03 if fail ;PID conflicts 
5974 EGiA Trap 3032.<;BASE/MBLKS wrong for HI/IH - page 106> 
5976 9022 else 
5978 4838 26E8 Ilda r3,=higo 
597C 303C 0004 sta r3,hilo(r4) ; initial HI dispatch 
5980 48A4 Ida r2,=hosvdh yassume a VDH 
5982 305C 0020 sta r5,iobloc(r4) ;real i/o hardware? 
5986 8BO8 if minus ‘ 
0001 -1if nz MISw 

5988 4078 5B98 call cmichk 
598C 4838 0100 lda r3,=hreset ;;data ihledr trliedr 
5890 303D 0006 sta r3.statih(rs) ;reset input side 
5994 48A0 lda r2,=hosreal ;real host 

endif : 
5996 781C O01D ldab ri,holhn(r4) ;host number (offset) 
599A A691 srl eta ; "hardware" host number to ri 
s99C 4994 sub ri,=nfh :fakes must be big 
S9SE 8B06 if minus 
59A0 48A2 Ida r2,=hosfake ;this is software host 
59A2 4878 0080 Ida r7,= H80 ;new format flag 
59AG 387C OOIC stab r7,homode(r4) 7start new 

endif 
59AA 381C 0029 stab ri,hihost+1(r4) ;Ssave our host address 
SSAE 302C 0002 sta r2.hostyp(r4) zand REAL/FAKE/VDH flag 
59B2 300C 4000 unlock lockhi(r4) sunlock HI : 
59B6 4078 SSFC call ihsini ;init IH side 

endif 
endif 


5SSBA 6006 endroutine bldhst 
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SSBC 1076 routine devinuse, arg r4-r5 
S59BE 765C 0020 if rS <> iobloc(r4) ;this isn’t main device 
59C2 911C 
59C4 703C 0022 Ilda r3,altio(r4) sany spare device? 
59C8 9A04 if zero } r3 = iobloc(r4) no 
SSCA 763C 0020 
S59CE 8113 
59D0 4838 OOFE lda r3,= HFE 
59D4 4873 lda r7,r3 
59D6 733D 0006 and r3,statim(r5) ;;statih 
59DA 737D OO00C and r7.,statom(r5) ;;statoh ;check PIDs 
59DE 7E3C OOOF if byte r3 = minpid(r4) & byte r7 = motpid(r4) 
59E2 8107 
59E4 7E7C OOOE 
59E8 8104 . 
59EA 305C 0022 sta rS.altio(r4) ;become the spare interface 
SSEE 9002 else 
SSFO E205 Trap 1005,<;Dbld PID intfe differs CALL MAINT (H) - page 107> 
5 

endif 
59F2 9004 else 
SSF4 4E53 if r5 <> r3 jwe aren’t spare either? 
SOFG 9102 
59F8 E203 Trap 1003,<:2 interfaces, one device (CALL MAINT) - page 107> 
7 

endif 

endif 
endif 


SOFA GOOG endroutine devinuse 
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; IHSINI 

;initialize IH software and hardware status 

;uses r1,3, r4 host, r5 iobloc 
SSFC 1076 routine ihsini,arg r4-r5,uses ri,uses r3 
SOFE 48B1 Ida r3,=1 
5A00 487C OO06O Ilda r7,=shq(r4) 
5A04 307C 0056 sta r7, ihwq(r4) ;make IHWQ valid 
5AO08 307C 0062 sta r7,ehq(r4) ;empty SHQ/EHQ 
5AOC 3037 sta r3,(r7) 
SAOE 487C 0064 Ida r7,=shpq(r4) ;empty SHPQ/EHPQ 
5A12 307C OO066 sta r7,ehpq(r4) 
5A16 3037 sta r3,(r7) 
5A18 707C 0002 ifnot hostyp(r4) ::hosreal ;got real hardware 
5A1C 8A05 
5A1E 4838 1100 Ida r3,=hready+hreset ;;data ihledr triedr 
5A22 303D O00C sta r3,statoh(rs) ;reset it 

endif 

5A26 703C 4054 lda r3, ihgoin+foo(r4) ;clear ihgoin for reset 
5A2A 4838 1A56 Ida r3,=ihidle 
5A2E 303C 0050 sta r3,ihlo(r4) ;init IHLO dispatch 
5A32 300C 405C unlock lockih(r4) 
5A36 300C 404E unlock ihloc(r4) 


5A3A 6006 endroutine ihsini 
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5SA3C 
SASE 
5A40 
5SA42 


SA46 
SA4A 
SA4C 
SASO 
5A52 
5A54 
SASG 
5A58 
SASA 
SASC 
SASE 


SA6O 


5SAG64 
SAGG 


5SAG68 
SAGA 
SAGC 


SAGE 
5SA70 


1076 
1016 
6017 
3O7E 


4B48 
890D 
7048 
4874 
4A71 
8BO6 
E207 
6016 
6076 
4FFO 
4007 


3078 


4A14 
48FO 


1071 
4E14 
81FE 


6016 
6006 


0002 


7FFF 


6524 


6524 
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;BLDBLK 


;(allocate) and clear a parameter block 
; call bldblk,<block length> ;(multiple of H1O) 
;call with old block address (or -1) in r4 


;returns new block address 


;clobbers ri 


in r4 if success 


routine bldblk, arg r4, inline ri, local r1 


and r4,= H7FFF 
if odd 
Ida r4,dynxt 
lda r7,r4 
add r7.r1 
if minus ::dyblke 
Trap 1007,<;BLDBLK: 
fail return 


endif 
sta r7,dynxt 
endif 
add ri,r4 
Ilda r7,=0 
repeat 
sta r7,(-r1) 
until ri = r4 


endrepeat 


endroutine bldblk 


;clear inactive bit. 
;not allocated yet 
;next available block address 


snew end of DYBLKS 
soverflow 
dynamic blocks area full - page 109> 


;now clear the block 


;do all the block 


519 
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5A72 
5A74 


SATS 
SATA 
SA7TC 
5A80 
5A82 
5A84 
SA86 


5SA88 
SABA 
SA8C 
SA8E 


5A90 
110 
5A92 


SA96 
SA98 
5A9C 
SAAO 
5SAA2 
SAAG 
SAAA 
SAAC 
SAAE 
SABO 
SAB2 
5SABG6 
SAB8 
SABA 
SABC 
SABE 


5ACO 
SAC2 


1076 
1026 


TE1IC 
8123 
4078 
8A0B 
4855 
8A06 
E110 


6026 
6076 
4FFO 
4007 


E114 
305C 


7075 
4078 
4F78 
8A10 
4B78 
7E78 
820B 
A2F1 
4E71 
8108 
4078 
205A 
1D3A 
SA03 
6026 
6006 


E409 
90E3 


OO1A 


5B48 


0020 


0100 
7BOO 


OOF F 
12EC 


SBC6 
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;MTEST 

;Test a running modem 

; enter with r4=par block, ri=modem number 
; check the block for internal consistancy 


routine mtest, arg ri, arg r4, local r2 


if byte ri = modem(r4) 


call tst2dev ;check our interface(s) 
if fail 

Ida r5,r5 ;got a spare? 

if zero 7no 


Trap 420,<;modem lost on Prim bus CALL MAINT (H) - page 110> 


fail return 


endif ‘ 
Trap 424,<;swapping modem interfaces CALL MAINT (H) - page 110> 


sta r5,iobloc(r4) 


endif 
Ilda r7,(r5) :get device type 
eor r7,=modid ;clear device type | 
if r7 .nbit. = HFFOO?modid?hmodid?magmod ;some modem 
and r7,= HFF ;just modem number 
if byte r7 < vd.clip ;Met a VDH modem 
Si ert 
1 OF =r ; the right device 


call tst2pid,m2i,i2m ;see about its PIDs 


if success ;all checks out 
return 


endif 
endif 
endif 
endif 
endif 
Trap 2011,<;scrambled modem parameter block - page 110> 
fail return 


endroutine mtest 
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5AC4 1076 


5AC6 4078 
SACA 8A2E 
SACC 4855 
SACE 8A05 


SADO E111 


SAD2 6076 
5AD4 4FFO 
SADG 4007 


5AD8 E115 


SADA 4828 
SADE 4838 
SAE2 707C 
SAEG SAFE 
SAE8 302C 
SAEC 48F4 
SAEE 387C 
SAF2 303C 
SAF6 305C 
5SAFA 300C 
SAFE 4828 
S5BO2 4838 
5BO6 707C 
SBOA SAFE 
5BOC 707C 
5B10 SAFE 
5B12 707C 
5B16 303C 
SB1A 302D 
SB1E 300C 
5B22 300C 


5B26 4078 
SB2A 2B46 
5B2C 18DC 
5SB2E SAOB 
5B30 4879 
5B34 AGF1 
5B36 4B78 
SB3A 7575 
5B3C 4D78 
S5SB40 8A02 
5B42 6006 


5R44 F628 


5B48 


10:57:29 PAGE 112 
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;HOTEST 
;Test running host 


; ri=index into h2pblk - r4=par block ~ r7=return 


routine hotest,arg ri.arg r4,uses ri-r3,uses r5 


call tst2dev 
if fail 
lda r5,r5 
if zero 


;check our interface(s) 


;got a spare? 
;no 


Trap 421,<;Host lost on Prim buss CALL MAINT (H) - page 111> 


fail return 


endif 


Trap 425,<:swapping host interfaces CALL MAINT (H) - page 111> 


lda r2,=sec3 
lda r3,=hiidle 
lock lockhi(r4) 


sta r2,hitt(r4) 
lda r7,=hninit 
stab r7.,hihd(r4) 
sta r3,hilo(r4) 
sta r5,iobloc(r4) 
unlock lockhi(r4) 
lda r2,=hreset 
Ilda r3,=ihdead 
lock ihloc(r4) 


lock lockih(r4) 


Ida r7,ihtt+foo(r4) 
sta r3,ihlo(r4) 
sta r2,statoh(r5) 
unlock lockih(r4) 
unlock jhloc(r4) 
endif 
call tst2pid,hi,ih 


if success 
lda r7.=-nfh'words(r1) 
srt 4,1 
and r7,= HFF 
eor r7.(r5) ;:;statd 
eor r7,=hostid 
if zero 
return 
endif 
endif 


sallow lots of time’for reset 
;will become hilo 
; lock hi 


:;timer to allow ready-line flap 
;for hihd 

;new state 

;and dispatch 

;and replace interface 

suntock hi 

;bit to reset hardware 

new dispatch 

: lock hardware 


:lock ih side too 


;no timing 

;new dispatch 
rreset it 

;done host stuff 


;check our dispatches 


;convert H2PBLK index 
:get word offset 

; just right byte 
;match hardware ID 


it’s a match 


Trap 3050.<:scrambled host parameter block - page 111> 


521 
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;TST2DEV 

:Test a doubled device (IOBLOC and ALTIO); call with 

> param blk in R4, return with jo address in R5 

:Fail return -> main device is gone; return alternate in R5 
:Succeed if main interface (and spare if any) is in USEIO 


5B48 1076 routine tst2dev.arg r4,arg mi,arg m3,result rS,local ri 
5B4A 1016 
0001 .if nz MISw :special testing in MI machines 

repeat 
5B4C 705C 0020 Ida r5,iobloc(r4) zmain device 
5B50 701C 0022 Ida ri,altio(r4) ;and spare 
5B54 4F58 1000 until r5 .bit. = H1000 } r1 .nbit. = H1000 
5B58 8AOA 
5B5A 4F18 1000 
S5B5E 9SA07 
5B60 301C 0020 sta r1,iobloc(r4) ;swap to F device 
5B64 305C 0022 sta r5,altio(r4) ;if that helps 
SB68 E103 Trap 403,<;Swapping to F device - page 112> 
SBG6GA SOF 1 endrepeat 
S5SBGC 4811 Ida ri.ri ;test ALTIO 

.iff ;nz MIsw 
Ilda r5,iobloc(r4) ;get main device 
lda ri,altio(r4) ;test alternate finst 
-iftf ;nz MISw smust get here with ZERO test on ALTIO 
SBGE SAO7 ifnot zero 
5B70 4078 SBA8& call vfindev ;does it exist? 
5B74 8A04 if fail ;nope} 
5B76 351C 0022 eorm ri,altio(r4) 
Trap 422.<:;spare interface disappeared CALL MAINT (H) - page 112> 
5B7A E112 
e 112 
endif 

endif . 
5B7C 4815 Ida ri,rs ;now test main device 
S5B7E 4078 5SBA8 call vfindev :it has to exist . 
5B82 8A07 if fail ;it’s gone 
5B84 705C 4022 Ilda r5,altiotfoo(r4) :try spare 
5B88 6016 fail return sreturn it to caller 
SB8A 6076 
SB8C 4FFO 
SB8E 4007 

endif 


-ift ;nz MISw 
5B90 4078 5B98 call cmichk 
.ende ;nz MISw 


5B94 6016 endroutine tst2dev 
5B96 6006 
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0001 .if nz MISw 
routine cmichk, arg r5, nosave 
5B98 4855 Ida r5,r5 
5BSA 8BO06 if minus ;if it’s really hardware 
5B9C 4F58 1000 if r5 .nbit. = H1000 jmain device not on F-bus 
5BAO 8A03 
5BA2 3008 6552 set ckill ;must not use O memory buffers 
endif 
endif 
5BAG 4807 endroutine cmichk 
.ende ;nz MISw 
; VFINDEV 
;Find a hardware device or VDH "device" 
;Calls FINDEV, then checks V2PBLK if fail 
5BA8 1076 routine vfindev,arg ri 
SBAA 4078 11C4 call findev 
S5BAE 8AOB if fail ;real device exists 
SBBO 4878 0038 lda r7,=th*words ;total hosts. length of v2pblik 
repeat 
5BB4 561F 636E if ri = v2pblk(-r7) ; found VDH device 
5BB8 8102 
SBBA 6006 return 
endif 
SBBC 88FC until loop 
endrepeat 
SBBE 6076 fail return 
SBCO 4FFO 
SBC2 4007 
endif 
5BC4 9OFB endroutine vfindev 
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;TST2PID 

;test both PIDs of given device 

; RS enters with device address, R4 is param blk 
> inline are cdispatches for input, output PIDs 

; sets up MINPID(HINPID) and MOTPID(HOTPID) 


5BC6 1076 routine tst2pid.,arg r4-r5,inline r3,inline r2.,local ri 
5BC8 1016 
5BCA 6037 
5BCC 6027 
SBCE 307E 0002 
5BD2 1026 save r2 :need this later 
5BD4 4824 a jlda r2,r4 ;param blk for MBLKS 
5BD6 701D 0006 Ilda ri.statim(rs) ristatih ;input PID 
SBDA 4B18 OOFE and r1,= HFE 
SBDE 4078 1174 call inbas2 ;check this dispatch 
SBE2 9A10 if success ;so far, so good 
5BE4 381C OOOF stab ri,minpid(r4) ;;hinpid ;remember in param blk 
5BE8 6036 pop r3 ;get output dispatch 
5BEA 701D OO0O0C Ida ri,statom(r5) :1statoh ;now output PID 
5BEE 4B18 OOFE and r1,= HFE 
5BF2 4078 1174 call inbas2 yand check it 
SBFS SAO5 if success ;all’s well 
5BF8 381C OOOE stab ri,motpid(r4) ;:hotpid ;:remember it too 
SBFC 6016 return 
SBFE 6006 
endif 

5COO 9002 else 
5C02 6076 pop r7 7Fix up stack 

endif 
5C04 6016 fail return ;signal caller 
5COG 6076 
5CO8 4FFO 
S5COA 4007 


endroutine tst2pid 


525 
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- INSERT "“FASTTO" 
. INSRT FASTTO 
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FCOO 


4256 
4256 
4258 
425A 
425C 
425E 
4260 


0400 


0006 
0014 
0010 
0016 
0022 
0044 


1076 


7078 
3078 
TO1C 
4A94 
4078 
7031 
48D1 
4078 
9A79 
3258 
3258 
3258 
8403 
3258 


7078 
3078 
70A8 
8001 


3028 
7078 
3078 
7OA8 
8001 


3028 
7078 
3078 


OOBO 
FCO4 
0172 


4426 


437A 


62DA 
62DE 
8094 


SEAA 


62D2 
FCO4 
62D0 


6000 
62D6 
FCO4 
62D4 


6002 
ooD2 
FCO4 
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PAGE 1 Fast Timeout (25 ms) 


-stitle Fast Timeout (25 ms) 


page PkgCode 


table faspok 
dsppid 
ttypid 
bktpid 
ihtpid 
ttopid 
rutpi 
endtable faspok 


; CTOHOT 


:following code on package page. 


;table of pids to poke each, 25 ms. 


;poke these each 25 ms 


;Handles 25 millisecons RTC PID 
:Performs various periodic checks, some at 125 ms intervals 
;Pokes STO (slow timeout) every 625 ms 


routine ctohot, arg r4 
setmap m2,maprel 


Ida ri,pidget-2(r4) 
add ri,=rtcadd-pidrcecl 
call cknice 
Ida r3,(r1) 
Ilda r5,=1 
call ckclock 
if success 
addm r5,time 
addm r5,sync 
addm r5,m2/sytime 
if carry 
addm r5,m2¢#sytim2 
endif 
setmap m2,watm1 


lda r2,@watcht 
ifnot quit 
endif 

sta r2,watcho 
setmap m2,watm2 


Ilda r2,®watch2 
ifnot quit 
endif 

sta r2,watchO+2 
setmap m2,mapv2 


;check out rely page. 
:get addr of this clock 


;check nice stop stuff 
;poke whoever pid’ed us 
yargs for CKCLOCK and us 
:check main/spare clock 
:we‘re main clock 


;carry out. 
;on rely} 


;maintain core copy of lights 


527 
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7078 
9BO06 
4838 
30B8 
9050 
4078 
7028 
SAFE 
4928 
8Bic 
4A28 
SBO7 
4828 
4878 
30F8 


7018 


5049 
9B07 
1016 
4078 
4078 
6016 


4E90 
81F6 


48F1 
3278 
4078 


3028 
48A8 


505A 
9909 
7870 
3OF8 
787D 
30F8 


88F5 
489C 
5079 


30F8 
88FC 


620A 


OO2E 
OOAC 


43E0 
A4A6 


2000 
93COO 
9001 


0042 
OOAC 


6324 


635E 


44D8 
44B2 


6520 
447E 


A4AG 


636E 


OOOF 
OOAC 
OOOE 
OOAC 


4256 
OOAC 
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Ilda r7,sidflg ;rerun con now? 
ifnot minus 
Ida r3,=conpid 
sta r3,@pid 
else 
call rxmchek ;check modems for retransmissions 
lock r2,cycle 


sub r2,= H2000 


if minus ;medium timeout every 128 ms 
add r2,= H2000- H400+sign 
ifnot minus ;time for slow timeout. 


Ilda r2,= H9001 

lda r7,=stopid 

sta r7,@pid 
endif 


;do various line state stuff every medium timeout (max. ) 


Ilda ri,modems 
repeat 
Ida r4,m2pb1k(-r1) 
ifnot minus 
save ri 
call phded! :;DEDL at medium to 
call mpoke ;MPOKE at medium to 
restore ri 
endif 
until ri = =O 


endrepeat 


Ida r7.=1 
addm r7.tikent ;bump line clock 
call hpoke :;keep hosts running 
endif 
unlock r2,cycle 


Ilda r2,=nfhtwords 


repeat 
Ilda r5,v2pb1k(-r2) 
ifnot odd 


Idab r7,bhpid(r5) 
sta r7,®pid 
Idab r7,hbpid(rs) 
sta r7,@pid 


endif 

until loop 
endrepeat 
Ida r1,=lfaspok ;how many pids to poke 
repeat 

lda r7,faspok(-r1) pnext pid 

sta r7,®pid ;poke it 


until loop 
endrepeat 
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433E 
4342 
4344 
4346 
434A 
434C 
4350 
4354 
4356 
4358 
435C 
4360 
4364 
4368 


436C 


4370 
4374 


4378 


4858 
7015 
9914 
7078 
SAFE 
3098 
7028 
48F 1 
3075 
3058 
3028 
3008 
4878 
3OF8 


4078 


7078 
3078 


6006 


0001 


4262 


63BC 


ASBG6 


63BA 
63BE 


63BE 
63BA 
A3B6 
0040 
OOAC 


127E 


ooD2 
FCO4 
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Ilda r5,=srq 
Ida ri,(r5) 
ifnot odd 


lock Itq 


sta r1,@etq 
lda r2,erq 
lda r7.=1 
sta r7,(r5) 
sta r5,erq 
sta r2,etq 
unlock 1tq 
lda r7,=task 
sta r7,@pid 


endif 


endi 
call 
endif 


f 
do25.6 


setmap m2,mapv2 


endrouti 


ne ctohot 
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;append srq to stq 
:unlocked is okay 
:srq has stuff. 


;put secondary queue on end of task q 
;poke TASK. 


:do OPSYS 25.6 ms timeout 


;Create global entry to CTOHOT if needed 


.if z LBig 


global 
$FF 


tohot= 


.endc 


tohot=ctohot 


ctohot 


:different Pkg page 


529 
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;CKCLOCK 
;checks two real-time clocks against each other 
:called with R1t/address of clock whose PID we got, 


7R5/ 1 
437A 1076 routine ckclock, arg r1, arg r5, uses r4 
437C 48C3 Ilda r4,=3 :constant for timers 
437E 7618 62E8 if ri <> clock 
4382 911C 
4384 7078 62E6 Ida r7,clk2up :system know we’re here? 
4388 4F78 FFFC {Ff rT .bit.. ==173 
438C SAO01 
: Trap 411,<;backup clock working again (H) - page 119> 

endif 
438E 7078 A2EA lock clklok 
4392 SAFE 
4394 4E18 FOO6 if ri <> =besclk 
4398 S10E 
439A 3158 G2E4 subm r5,clkiup ;main clock still happy? 
439E SBOA ifnot minus 
43A0 3048 62E6 sta r4,clk2up 
43A4 3008 A2EA unlock clklok 
43A8 3258 62DC addm r5,timea ;bump alternate timer 
43AC 6076 fail return 
43AE 4FFO 
43BO 4007 

endif 
Trap 410,<;Main clock stppd swtchd to bkup RTC (H) - page 119> 

43B2 E108 
19 

endif 
43B4 3018 G2E8 sta ri,clock smake us be main clock 
4388 SOOF else 
43BA 7078 SD5A lda r7,m2#usebus 
43BE 4BF3 and r7,=<1_<bsadil_-1>>-1 
43CO 4B7F FFFF and r7.=-1(r7) 
43C4 8A02 if zero ;only one clock in system 
43C6 6006 return 

endif 
43C8 7078 A2EA lock clklok 
43CC SAFE 
43CE 3158 62E6 subm r5,clk2up 
43D2 8A02 if zero 
43D4 E10A Trap 412,<;no working backup RTC (H) - page 119> 

endif , 

endif 


43D6 3048 62E4 sta r4,cikiup 
43DA 3008 A2EA unlock clklok 


43DE SOF4 endroutine ckclock 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 121 
FASTTO.PLR; 1 


1076 
48D0 


604D 
9B 1B 
7O7C 
9918 
7O7C 
SAFE 
702C 
9911 
4078 
SAOE 
7079 
727C 
71F8 
8B03 
4078 


7078 
3078 
3004 
7658 
81E1 


6006 


635E 
0034 
4000 
0034 
1St2 
OO9A 
0032 
62E8 
14E8 


ooD2 
FCO4 


6324 
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;RXMCHEK: check modems for retransmissions to go 

; loops through all modems and compares sent time 

;of first buffer on SENTQ with current time to . 
;determine if we need to set I2MPOK to flag retransmission 


routine rxmcheck, uses ri/r2/r4/r5 
set r5 = #0 


repeat 
lda r4,m2pb1k(r5)+ ;aet modem block 
ifnot minus :there is a modem here 
set r7 = ssentq(r4) :check to see if anything 
ifnot odd ;something there to look at 
lock lockm(r4) ;now lock and look 
Ida r2,ssentq(r4) 
ifnot odd :still something there 
call unpack :get to buffer 
ifnot fail ;succesfully 
Ida r7,st(r1) ;sent time 
add r7,mrtime(r4) ;retrans interval 
sub r7,@clock minus time now 
if minus ;retransmit, then 
call pokem :set flag and poke 
endif 
setmap m2,mapv2 :restore map 
endif 
endif 
unlock (r4) ;3;1lockm 
endif 
endif 


until rS = modems puntil we’ve checked all 


endrepeat 
endroutine rxmcheck 


531 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 122 
FASTTO.PLR; 1 


4426 
4428 
442C 
4430 
4432 
4436 
4438 
443C 
4440 
4442 


4444 
4446 
4448 
444A 
444E 
4450 
4452 


4454 
4458 


445C 
4460 
4462 
4464 
4466 
446A 
446C 
4470 


4474 
4478 


447C 


6516 
OBAD 


0002 


OOAC 
651C 


OO1E 


6518 
OAO8 


651E 


635E 
0020 
SEAC 


6518 
1308 


PAGE 6 Fast Timeout (25 ms) 


;check and do nice/panic stop as necessary 
routine cknice 


if nmsftof = # HOBAD ;should we stop machine? 


Ida r7,2(r1) 


srl r7, H8 ;get 25.6ms clock PID 
sta r7,@PID ;poke it to get everyone here 
Ida ri,nsrtf ;get nice-stop flag. 
ifnot minus 
sub r1,=4 ;make panic look like nice stop 
endif 
add ri,=2 pinsrtf ;check flag for dispatch. 
ifnot zero 
ifnot minus yhalt us. 
lda r1,=%lvl4+%serve ;shut off level 4 
sta ri.(r1) ;by pointing it at itself 
inh .L4+.l4 
hit 
endif 
lda r4,nspc ;who started this 
jmp ws :restart 
endif ; its a reload request 
Ida r2.nstlin . 
ifnot zero ; line number set, so hold on one line 
sub r2,=1 
$11 P21 ;make Tine numbe into offset 
Ilda r4,m2pblk(r2) ;this parameter block : 
ifnot minus ;if we have such modem 
set m24rlddev = iobloc(r4) :reload from it 
endif 
endif 
Ilda r4,nspc ;remember who started all this 
jmp reload :now force a reload 
endif 


endroutine cknice 
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447E 
4480 
4484 


4486 
448A 
448C 
4490 
4492 
4496 
4498 
449A 
449E 
44A2 
4406 
44AA 


44AE 


44B0 


1076 
7018 
4998 


5049 
9B12 
7O7C 
8AOF 
783C 
4EB4 
910B 
4838 
70SC 
303D 
743C 
303D 


88EC 
6006 


6322 


632E 


0002 


OO1F 


1000 
0020 
OOOC 
0024 
0006 


PAGE 7 Fast Timeout (25 ms) 
pFRREEe keep host running 


routine hpoke, uses ri, uses r3-r5 


lda ri,hosts ;all hosts 
sub r1,=nfh2 ;just real hosts 
repeat 


Ida r4,h2pblk+nfh2(-r1) 
ifnot minus 
ifnot hostyp(r4) ;;hosreal ;if a real host 


Idab r3,hihd(r4) :reset in progress? 
if r3 <> =hninit 


Ida r3, =hready :;:data trledr ihledr 
Ida r5, iobloc(r4) 
sta r3,statoh(r5) 
jor r3.hiloop(r4) 
sta r3,statih(rs) 
endif 
endif 
endif 
until loop 
endrepeat 
endrout ine 
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44B2 


44B4 
44B8 
44BC 
44CO 
44C4 
44C8 
44CA 
44CE 
44D2 


4406 


1076 


7O5C 
7O7C 
4B78 
307C 
307D 
48FO 
307D 
787C 
30F8 


6006 


0020 
OO1E 
cooo 
OO1E 
0006 


oo0oc 
OOOF 
OOAC 


PAGE 8 Fast Timeout (25 ms) 


;MPOKE 

;poke modem interfaces to hold off watchdog 

;also maintains low-order address bits (both directions) 
;and interface loop/crosspatch state (input side) 

7;R4 enters with parameter block address 


routine mpoke, arg r4,uses r5 
Ida r5,iobloc(r4) ;modem address 


Ilda r7,mloop(r4) 
and r7,=mloopi+mloope 


sta r7,mloop(r4) ;loop state 

sta r7,statim(rs) zineth ;hold loop state, low address 
Ilda r7,=0 

sta r7,statom(r5) pineth = ;hold hardware wdt, low address 


Idab r7,minpid(r4) 
sta r7,@pid 


endroutine mpoke 
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;Package page timeout table if needed 


getpage Warm,..., $mapcd get page maps for tests 

getpage PkgCocde,,..,$#mappk 

getpage RutCode,,.,,$maprt 

0000 .if nz $mappk-smapcd 

pkgtab: O :Config code entry- 

-if Zz $mappk-Fmaprt rpick up routing timeouts too? 
rupqck 

.ende ;;z2 $mappk-Smaprt 
Oo ;Spare 
oO ;end of timeout table 


.ende ;;nz Fmappk-Fmapcd 
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- INSERT "STO" 
-INSRT STO 
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STO.PLR;1 PAGE 1 Slow Timeout Dispatch 


.stitle Slow Timeout Dispatch 


-comnt | 

sTo 

Slow Timeout code central dispatch. (640 ms.) 

Calls all system slow timeout routines. 

Each code page has a list of routines pointed at by TOPNTR. The 

first routine is a configuration routine and is skipped by STO. 

When STO finds a list entry zero, it changes pages and proceeds on the 
next logical page. 

Poked every slow tick by Fast Timeout. 


Page LCode 
;compatibility crock} 
1BEE 4868 6500 tossx: lda sp,=stostack-<2*words> 
1BF2 9014 br stnxt 


;process sto,pid=stopid 


stoloop: ;start here first time around 


repeat : Forever 
1BF4 4890 Ilda ri,=0 ‘ 
repeat ;for all code pages 
1BF6 6079 OOBO lda r7,imap(r1)+ ‘ 
1BFA 9915 ifnot odd ;page exists 
1BFC 3078 FCOO sta r7,%mapoO 
1COO 7038 40BC lda r3,topntr 
1CO4 SA10 ifnot zero :;there is a table 
1CO6 4AB2 add r3,=2 
repeat 
1CO08 6023 Ida r2,(r3)+ 
1COA SAOD until zero 
1cOCc 1016 save ri.r3 
1COE 1036 
1C10 7078 OOD2 setmap m2,mapv2 
1C14 3078 FCO4 
1018 4072 call (r2) 
stnxt: 
1C1A 6036 restore ri.r3 
1C1C 6016 
1C1E 4078 1034 call tsleep 
1C22 SOF3 endrepeat 
endif 
endif 
1C24 4E18 0010 until ri = =%ncodep :done all code pages 
1C28 81E7 : 
endrepeat 
1C2A 4078 1C54 call tslee2 :sleep without poke 


1C2E SOE3 endrepeat 
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1C30 


1034 
1C36 
1C3A 


1c3C 
1c40 
1044 


1048 
1C4A 
1C4E 
1052 


1054 
1C56 
1058 
1CSA 
1C5C 
1C5E 
1c60 
1C64 


1C66 
1CG6A 
1C6E 


4868 


1076 
7078 
1076 


4878 
30F8 
4078 


6076 
TOTF 
3078 
6006 


1076 
1016 
1026 
1036 
1046 
1056 
7078 
1076 


3068 
3008 
4008 


6500 


40BE 


0042 
OOAC 
1054 


OOBO 
FCOO 


80BE 


6504 
A506 
1072 
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PAGE 2 Slow Timeout Dispatch 


;TSLEEP 


;Put the STO process to sleep 
;assumes M1,M3 set to MAPVAR 


otsleep: Ilda sp,=stostack-<2*words> ;compatibility crock. 


routine tsleep, local mO, arg mi, arg m3 


;ipoke stopid 
lda r7,=stopid 
sta r7,@pid 
call tslee2 


endroutine tsleep 


routine tslee2, local 


sta sp,stosp 
unlock stolok 
jmp loopmv 


: (OVER) 


;reawaken us too 


;don’t yet trust the poke macro. 
;and resume here 


ri-r5,local m2,arq mi,ara m3 


;save the stack pointer too 
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1072 
1C76 
1C78 
1C7A 
1C7E 


1c80 
1084 
1C86 
1C8A 
1C8E 


1C92 
1C96 
1c98 
1c9C 
1CAO 


1CA2 


1CAG 
1CA8 
1CAC 
1CBO 
1CB2 
1CB4 
1CB6 
1CB8 
1CBA 


1CBC 


1CBE 
1cCO 


1c0C4 


1CCG6 


1CC8 
1cCCC 
1CCE 
1cD2 
1CD4 
1cD6 


iCDA 


7078 
SAFE 
8904 
7078 
E104 


7078 
9BO7 
7078 
3008 
4008 


7078 
8A06 
3008 
4868 
SOAA 


7068 


6076 
TOTF 
3078 
6056 
6046 
6036 
6026 
6016 
6006 


1076 


48F3 
3078 


6006 


1076 


7078 
8A04 
4078 
SOFB 
49F1 
3078 


6006 


ASOG 


ASO8 


620A 
A508 
ASO6 
108E 
6508 
6508 
6504 
6504 


OOBO 
FCO4 


40B4 


40B4 


1034 


40B4 


PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 129 
PAGE 3 Slow Timeout Dispatch 


sto: ;enter here from LOOP 
lock stolok 


if odd shave we been timed out 
Ida r7,stoinit+foo ;yes, show we need to reinit 
Trap 404,<:lock timed out - page 128> 


endif 
lda r7,sidflg ;may we run yet? 
ifnot minus 7no, we need to init. 


Ilda r7,stoinit+foo 
unlock stolok 


smark as needing init. 


tr loop 
endif 
ifnot stoinit 
set stoinit swe’re initialized now 
lda sp,=stostack ;proper stack pointer 
tr stoloop sand start process 
endif 
lda sp,stosp ;restore stack ptr 


endroutine tslee2 


;STO subroutines to help manage pages 
;routine to set init timer on each page. 
routine tosst 


lda r7,=3 
sta r7,intime 


endroutine tosst 


;routine to make sure timeout runs on every page 
;trigger restart if not 


routine tickin 


repeat 
Ida r7.intime 
while zero 
call tsleep 

endrepeat 

sub r7,=1 

sta r7,intime 


endroutine tickin 
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- INSERT "UPDWN" 
- INSRT UPDWN 


Pluribus IMP 


UPDWN.PLR; 1 


FCOO 


0010 
0400 


.comnt 
PHDEDL 


line state logic. 


1301 
PAGE 1 Line Up/Down Code 
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-stitle Line Up/Down Code 


.radix H10 shex for this File 


Page PkgCode 


runs off medium timeout 


entered with R4/ modem parameter block 


4408 
44DA 


44DC 
44EO 
44E4 
44E8 
44EA 
44EE 
44F2 
44F4 
44F8 
44FA 
44FE 
4502 
4506 
450A 
450E 
4512 
4516 
451A 
451E 
4520 
4522 


4524 
4528 
452C 
452E 


4532 
4536 
4538 


453C 
453E 


0020 


1076 
1026 


7O7C 
7178 
4F78 
SA2A 
797C 
317C 
48A1 
707C 
SAFE 
322C 
322C 
785C 
783C 
4078 
4B58 
385C 
383C 
702C 
4EAS 
9202 
E415 


300C 
702C 
8B03 
300A 


702C 
8BO3 
300A 


6026 
6006 


OOB2 
6520 
FFOO 


OOB 1 
OOB2 


4000 


00B4 
OOAA 
0002 
0003 
4540 
FFFT7 
0002 
0003 
4006 


4000 
0044 


OSFO 
0046 


OSFO 


lda r7,tiktim(r4) 
sub r7,tikent ;modu 
if r7 .bit. = HFFOO 


subb r7,tikrat(r4) 
subm r7, tiktim(r4) 
Ilda r2,=1 ;cons 
lock lockm(r4) 


addin r2, ihytik(r4) 
addm r2,Imiss(r4) 
ldab r5,phflag(r4) 


Idab r3,auxcnt(r4) sand 
call doded!| ;do i 
and r5,=-1?rcedhel ;clea 
stab r5,phflaa(r4) ;upda 
stab r3,auxcnt(r4) ;new 
set r2 = ckerrst+foo(r4) show 
{Ff P2 S2 45 ; too 


Trap 2025,<;:Too many modem h/w 
endif 
unlock lockm(r4) 
Ida r2.filling(r4) 


if minus ; ther 
set flushd-chain(r2) pmark 

endif 

Ida r2,nxtbf(r4) ;same 

if minus > ther 
set flushd-chain(r2) smark 

endif 


endif 


endroutine phded! 


hdrst = 032 ;time to reset hardware (protocol ticks) 


routine phded!, arg r4, local r2, uses ri, uses r3, uses r5 


lo arithmetic 


:time to do this line 


tsave next tick’s time 


tant for everybody 


;count tick for err reports 
;count ticks between misses 
;line state now 


counter 

t for this line 
r hello received 
te line state 
counter value 
many bedd inputs? 
many 


cksum errors - page 130> 


shold timers for our buffers 


e’s one here 
it 


service for NXTBF 
e’‘s one here 
1% 
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PAGE 2 Line U 


line transition code: 
RS contains the lines state word 

R4 is the modem parameter block 

R3 has counter (use depends on state) 
has a 1 


R2 always 
4540 1076 


4542 7078 
4546 8A03 
4548 48D3 
454A 48B0 


454C 4FD2 
454E QA2C 
4550 4C58 
4554 4078 
4558 4EBO 
455A 8103 
455C 4078 


4560 1056 
4562 4078 
4566 4078 
456A 6056 
456C 4AB1 
456E 7E3C 
4572 8C1i5 
4574 4FD8 
4576 9A13 
4578 4002 
457A 4878 
4S7E 7278 
4582 307C 
4586 48BO 
4588 383C 
458C 4078 
45390 7078 
4594 7E7C 
4598 8202 
459A 4DD1 


459C 4E38 
45A0 9202 
45A2 48B0 


72B8 


008 1 
14E8 


470C 


4GAE 
1BBA 


OOAE 


01D4 
6520 
oosc 


OOA2 
4648 
62E2 
0005 


0020 


routine doded] 


ifnot rutini 


set r5 = #inhrst}master 


clear r3 
endif 


select r5 .b 
case inhrst 


jor r5S,#sh 
call pokem 
if r3 = =0 


call lin 
endif 
save r5 
call cline 
call grrpk 
restore r5S 
add r3,=1 
if byte r3 


eor r5,= 


p/Down Code 


» arg r2-r5s, 


t 


it. = 


ihy}master 


eit 


i2 
ts 
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uses r1, result r3, result r5 
;routing S6-second delay 


;hold us in RESET state 


;various cases 

;resetting 

;always send Hello/IHY and be master 
;entering reset 

;reset hardware 

;save over calls 

;reset modem state stuff, 


;and dump its traffic 


;ticks in reset 


> k(r4) & r5 .bit. =rcdhel 


inhrst 


Ilda r7,=medmin 


add r7,t 


ikent 


sta r7,rutwait(r4) 
lda r3,=0 
stab r3,odelt(r4) 


Gall Ftr 
lda r7,m 


cur 
ine 


;out of reset 

7;set up 1 min of med ticks 
;set alarm clock 

;when we can come up 

;clear hit/miss cnt 

;master miss count 

;reset retrans timers for SPF 


if byte r7 < neigh(r4) 


eor r5 
endif 


; (OVER) 


»=master 


;I‘m slave 


;time to reset again 
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45A4 
45A6 
45A8 
45AA 
45AE 
45B2 
45B4 
45B6 
45BA 
45BC 
45BE 
45C2 
45c4 
45C6 
45C8 
45CC 
45D0 
45D2 
45D6 
45D8 
45DpC 
45E0 
45E4 
45E6 


45E8 
45EA 
45EC 


45FO 
45F4 
45F6 


45F8 
45FC 
4600 
4604 


4608 
460C 
4610 
4614 
4616 
4G1A 
461E 


4620 


9051 
4FD1 
SASF 
4C58 
4078 
4FD4 
9A04 
4078 
9035 
4AB1 
793C 
8B14 
4FD8 
9A06 
7F7C 
7A3C 
900C 
4078 
48B0 
3A2C 
787C 
7E7C 
9202 
4cD2 


SO1E 
8AOF 
487C 


SF7F 
4E74 
81FD 


787C 
307C 
387C 
7TF7C 


TA3C 
7078 
TIC 
9BO6 
4078 
7C5C 
48B0 


4078 


0080 
14E8 


4662 


OOBO 


40A2 
OOBO 


4648 
OOA2 


OOA2 
OOAE 


0008 


40A2 


OOAF 
OOAC 
OOA2 
40A1 


OOBO 
6520 
oogsc 
4724 
0002 


4662 
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PAGE 3. Line Up/Down Code 
case master ymaster, not resetting 
ior r5,=shihy ;send hello 
call pokem ;set i2mpok and poke modem 
if rS .bit. =phup :;line alive 
call knmiss isee if line still good 
else ymaster, coming up 
add r3,=1 ;default getting a hihy 
subb r3,NUP(r4) show close to comming up are we 
if minus :still coming up, use ‘consec cntr 
if r5 .bit. =rcedhel ;got a hello 


tstb r7,odelt+foo(r4) ;clear misses 
addi r3,NUP(r4) ;fix count again 


else ;got no hello 
call rtretr ;start over again 
Ilda r3,=0 ;zero hit count 
addbm r2,odelt(r4) ;bump misses 


if byte odelt(r4) >= k(1r4) 


jor r5,=inhrst ;gotta go down 


endif 
endif 
else 7r3 plus=> into wait state, use KOON 
if zero ;just come into wait, set up KOON 
Ilda r7,=lIdelt(r4) 
repeat 
tstb r7,odelt+foo(-r7) :clear deltas 


until r7 = r4 


endrepeat 

Idab r7,N(r4) ;init k-out-of-N stuff 
sta r7,tdelt(r4) 

stab r7,odelt(r4) 


tstb r7,kpoint+foo(r4) ;clear pointer to odelt 


endif 

addb r3,NUP(r4) ;fix count of ticks 

Ilda r7,tikent ;current time 

sub r7,rutwait(r4) show much time left in wait 
if nminus ;time to be up 


call lineup 
jiorb rS,phflag(r4) 


clear r3 ;reset AUXCNT always 
endif 
call knmiss ;check line 
endif 


endif 


; (OVER) 
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Pluribus IMP 
UPDWN.PLR; 1 PAGE 4 Line Up/Down Code 
4624 9011 case rcdhel i;slave, got hello 
4626 4FD8 
4628 9AO3 
462A 48B0 Ilda r3,=0 ;clear miss count 
462C 900D default 7Slave, no hello 
462E 4AB1 add r3,.=1 ;iner miss count 
4630 7E3C OOAE if byte r3 > k(r4) ; too many consec 
4634 8cos 
4636 4FD4 if rS .bit. =phup jwas line up? 
4638 SAO05 
: Trap 2016,<;Slave missed 4 in a row - page 133> 
463A 4078 1CF4 call killin syes, kill it 
463E 785C 0002 ldab r5,phflag(r4) 
endif 
4642 48B0 lda r3,=0 ;always reset auxcnt 
4644 4CD2 ior r5,=inhrst ;back to reset 
endif 
endselect 

4646 6006 endroutine doded! 

;RTCLR- clear SPF retransmission timers 
4648 1076 Routine RTRCLR, arg r4 
464A 7O7C 40B8 lock rtimri(r4) ; lock timers 
464E SAFE 
4650 487C 0020 Ida r7,=<<<nimp-1>_-3>+1>*words(r4) ; loop control 

repeat 
4654 577F 40BC tst r7,rtimrs+foo(-r7) ;clear a word of timers 
4658 4E£74 until r7 = r4 . 
465A 81FD 

endrepeat 
465C 300C 40B8 unlock rtimri(r4) 
4660 6006 endroutine rtreiIr 
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PAGE 5 Line Up/Down Code 


Called when in master mode to clo the K out of N calculation. 
Expects 
Returns 


4662 


4664 
4666 
4668 
466C 
4670 
4672 


4676 
467A 
467C 
467E 
4682 


4684 
4688 
468A 
4G68E 
4692 


4696 
469A 
469C 
469E 
46A2 
4GA4 


4G6A8 


46AC 


1076 


4FD8 
8A23 
TO1IC 
4F18 
9A03 
4818 


787C 
49F 1 
8B04 
787C 
49F2 


387C 
4A74 
T91F 
SA1F 
721C 


TEIC 
8207 
E40C 
4078 
48B0 
785C 


301C 


6006 


the line state inrs, 


new TDELT in R1, AUXCNT in R3 


4OAA 
FFOO 


OOF F 
OOA1 


OOAE 


OOA1 
OOA2 
OOA2 
OOAC 


OOAF 


1CF4 
0002 


OOAC 


routine knmiss, arg r3-rs, 


if rS .nbit. =rcdhel 


lda r1,lmisstfoo(r4) 
if ri .bit. = HFFOO 


lda ri,= HFF 
endif 
ldab r7.kpoint(r4) 
sub r7,=1 
if minus 
ldab r7.k(r4) 
sub r7,=2 
endif 
stab r7,kpoint(r4) 
add r7,r4 
subb r1,odelt(r7) 
addbm ri,odelt(r7) 
add ri,tdelt(r4) 
if byte r1 < n(r4) 


Trap 2014,<;Master 
call killin 
clear r3 
Idab r5,phflag(r4) 
endif 
sta ri,tdelt(r4) 
endif 


endroutine knmiss 


line 


returns new value in r5S 


result ri/r3/r5 


;we missed one 


show long since last miss 
pmax diff? ‘ 


:eliminate modulo err 


;where is oldest miss 

:get to oldest slot 

; last slot we’re supposed to use 
show many slots we have 

:save k-1 misses (from O to k-2) 


;save for next miss 

:get to right modem block 

;time between misses for oldest 

;save newest, and remove old 

sadd sum of last k-1 misses 

;does the new one break the camel’s back? 


died - page 134> 
smust kill it for k-out-of-n 
:reset AUXCNT 


sand save sum 
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AGAE 
46BO 


1CDC 
1CDE 
1CE2 
1iCE4 
1CE8 
1CEC 
1CFO 
FCOO 


46B2 


46B6 
46BA 
46BE 
46C2 
46C6 
46CA 
46CE 
46D0 
46D4 
46D8 
46DC 
46E0 


40BE 


OOB4 
FCOO 
4GAE 
1BCE 


OO1A 


4102 
4112 
O01C 
0032 
40F2 
OOAO 


001B 
4122 
OOBO 
4132 
OOAE 


PAGE 6 Line Up/Down Code 

;LINEI2 . 
;Reset modem state. including various line state control 
;parameters and logical channel variables and tables.. 


routine clinei2, arg r4, uses ri, local r2 


global linei2 = clinei2 


;first, set line protocol stuff 


ldab r2,modem(r4) 


Ilda ri,channel(r2) ;channels for this line 

lda r7,irrtime(r2) ;retransmit time for this line 

sta ri,maxchn(r4) 7num of chans this line. 

sta r7,mrtime(r4) ;and retransmit rate 

lda r2,lineprot(r2) ;protocol version, ,route rate 
stab r2,rutspd(r4) :set routing interval 

srl r2, H8 ;get protocol version 

stab r2,clockm(r4) >this is "line speed" 

Jda r7,protent(r2) 

sta r7,NUP(r4) ;ticks to come up,,med ticks per line tick 


Ilda r7,knvalu(r2) 
sta r7,k(r4) 7aN ;set up k,n for this line 
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46E4 4828 
4GE8 4E18 
46EC 8102 
4GEE A2A8 


46GFO 4814 
46F2 48F8 


46F4 3029 
46F8 3029 
4GFC 3029 
4700 6779 
4704 49F1 
4706 8AF7 


4708 6026 
470A 6006 


470C 1076 


470E 701C 
4712 4878 
4716 3079 
471A 747C 
471E 3079 


4722 6006 


1 


FFFF 
0010 


0062 
0072 
0052 
4082 


0020 
0100 
oooc 
OO1E 
0006 
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Line Up/Down Code 


;Now initialize the RSEX,TSEX,INFREE,CHNBSY bits 


lda r2,=-1 
if ri = = H8*2 :exactly 8 channels? 
sll r2, H8 
endif 
Ida ri,r4 
Ida r7.=Nmdlim/ D1G 
repeat 
sta r2,rsex(r1) 
sta r2.infree(ri) 
sta r2,tsex(r1) 


tst 
sub 


r7,chnbsy+foo(r1)+ 
r7,=1 


until zero 
endrepeat 


endroutine clinei2 


;LINEI1 


;reset hardware for modem parameter block in R4 


routine 


linei1, arg r4, uses rj 


Ilda r1,iobloc(r4) :;device address 
Ilda r7,=mreset 

sta r7,statom(r1) 

ior r7,mloop(r4) 

sta r7,statim(r1) 


endroutine lineil 
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PAGE 


.comnt | 

LINEUP - bring a line up instantly 

Assumes that lockm for the line is already locked. 
Resets delay and retrans clock. Changes line state. 
Checks if time to come out of init state. 

Flags for routing update and trouble report to go. 


138 


4724 1076 Routine LINEUP, arg r4, local r5 
4726 1056 
4728 785C 001A’ Idab r5,modem(r4) ;doubled modem number 
472C 705D 12D6 Ida r5.,propdi(rs) ;Propaqation delay for this line 
4730 A6D3 srl r5,smoshf ;shift by averaging shift 
4732 8A02 if zero i 
4734 48D1 Ilda r5,=1 :never report zero delay 
endif 
4736 4E58 OOFF if r5 >= =dlinf 
473A 9203 
473C 4858 OOFE lda r5,=dlinf-1 ;or infinite 
endif 
4740 707C 4092 lock dlock(r4) ; lock delay vars 
4744 SAFE : 
4746 385C OO9A_ stab r5,delave(r4) ;initial delay is equal to 
474A 385C OOSB tab r5,delbas(r4) ;propagation delay 
474E 707C 4098 da r7,dellowtfoo(r4) ;clear averaging counters 
4752 707C 4096 Ilda r7,delhi+foo(r4) 
4756 707C 4094 Ida r7,dpcnt+foo(r4) 
475A 300C 4092 unlock dlock(r4) 
475E 7O7C 40B8 lock rtimri(r4) 
4762 SAFE 
4764 AGD2 srl r5,srtshf ;convert to 25.6 ms ticks 
4766 305C OOBA sta r5,rtreik(r4) riptrtic :;set clock rate, clear count 
476A 300C 40B8 unlock rtimrl(r4) 
476E 48F4 Ilda r7,=phup 
4770 3C7C 0002 iorbm r7,phflag(r4) ;mark line up 
4774 787C 4003 Ildab r7,auxcnt+foo(r4) ;Cclear protocol counter 
4778 787C 0005 if byte neigh(r4) <> mine ; looped line? 
477C 7E78 G2E2 
4780 9103 
4782 3008 72A6 set iniflg :no, bring us out of init state 
endif 
>; Trap 2720,<;Line up, r7=neighbor - page 137> 
4786 3008 6512 set ophgo ;send trouble report 
478A 3008 72B2 set rupsnd ;and routing update 
478E 4878 0044 set @pid = #rutpi ;poke routing 
4792 30F8 OOAC 
4796 6056 endroutine lineup 
47938 6006 
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.comnt | 
KILLIN - kill a line instantly 

Assumes that lockm for the line is already locked. 

Resets line state, delay values, and retrans clock. . 
Flags a SPF update to be sent and a trouble report. 


1CF4 


1CF6 
1CF8 
1CFC 
1D00 
1D04 
1D08 
1DOA 
1DOE 
1012 
1D16 
1D1A 
1ID1E 
1022 
1D26 
1D2A 
1D2C 
1D30 
1D34 


1D38 


1076 


48F3 
387C 
787C 
787C 
7O7C 
SAFE 
4878 
307C 
300C 
3008 
3008 
4878 
3OF8 
7O7C 
SAFE 
4878 
307C 
300C 


6006 


0008 


0002 
4003 
4005 
4092 


FFFF 
OO9A 
4092 
6512 
72B2 
0044 
OOAC 
40B8 


00139 
OOBA 
40B8 
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page LCode 


Routine KILLIN, arg r4 
setb phflag(r4) = =inhrst}master :go into reset state 


;zero reset ticks 
;clear neighbor number 


ldab r7,auxcnt+foo(r4) 
ldab r7,neightfoo(r4) 


lock dlock(r4) :;lock this lines delay vars 
set delave(r4) = =dlinf* H101 ::delbas ;set infinite delay 
unlock dlock(r4) 

set ophgo :send trouble report 

set rupsnd yand routing update 

set @®pid = /rutpi :poke routing 


lock rtimri(r4) 

set rtrolk(r4) = =rticd :;rtrtic ;reset SPF retrans clock 
unlock rtimrl(r4) 

endroutine killin 


.radix O10 :return to octal 
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- INSERT "MODEM" 
- INSRT MODEM 
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1D3A 
1D3C 
1D40 
1044 
1D48 
1D4A 
1D4E 
1D52 
1D54 
1D58 
1DSA 
1DSE 
1D60 


1DG4 
1D68 
1iDGA 
1DGE 
1D70 
1D74 
1D78 
1D7A 
1D7C 
ID7E 
1D80 
1D82 
1D86 


1D8A 
1D8C 
1D8E 
1D90 
1D94 
1D96 
1098 
1D9C 
1DAO 
1DA4 
1DA8 
1IDAA 
1DAE 


1076 
7049 
705C 
7O7C 
SAFE 
707D 
4F78 
8AGO 
4B78 
SA06 
702C 
E404 
307D 


0001 


7O7C 
SAFE 
702C 
9A10 
TOTA 
4F78 
8A03 
E40B 
9007 
48F 1 
3072 
3OAC 
302C 


3004 
9012 
3004 
702C 
SAOE 
890A 
4B28 
783C 
703B 
4078 
9004 
4078 
0100 


81CO 
0020 
4024 


OO00C 
2000 


0100 
0026 


OOO0C 


4000 


4026 


OGAO 
0100 


0036 
0036 


4028 


FFFE 
001A 
OEBG 
55D2 


1332 


PAGE 1 IMP Modem 10 Code 
-stitle IMP Modem IO Code 
Page Lcode 
routine i2m, arg ri 
lda r4,mblks(r1) 
Ida r5,iobloc(r4) 
lock i2mloc(r4) 


lda r7,statom(rs) 
if r7 .nbit. =mbusy 


and r7,=mquit ;:statom 


ifnot zero 
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>for hardware, LATER 


;modem not busy. 


reports buffer CHAIN word 


Trap 2004,<;modem output got quit - page 140> 


Ilda r2,snding(r4) *R2: 
sta r7,statom(r5) yimreset 
endif 


ah & LBig 
setmap mO,mappkg 


shandle output just completed 


lock lockm(r4) 


lda r2.sndingtfoo(r4) 
ifnot zero 


if where-chain(r2) .nbit. 


;for SNDING, ESENTQ 


:first look for data packet 
;there is one 


4whi2in ; lost ownership 


Trap 2013.<;lost SNDING buffer - page 140> 


r) else 


set (r2) = “#1 


set @esentq(r4) = r2 
set esentq(r4) = r2 


endif 

unlock (r4) ;;lockm 
else 

unlock (r4) ;;lockm 


Ilda r2,later+foo(r4) 
ifnot zero 
if odd 
and r2,4#-2 
Idab r3,modem(r4) 
Ida r3,bittab(r3) 
call rupflis 
else 
call flush,whi2m 


endif 
endif 
endif 


;more I2M over 


;this buffer will end queue 


renqueue it 


;else try packet to flush 
:it’s a flooded packet 
;remove odd bit 

;qet our modem bit 

rand flush our use 


; just free the buffer 
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;12M continued 

;Look for high-priority, low-probability things 

;for I2M to do: 

(1) send a hello/i heard you msg 

(2) flood an SPF update 

(3) send a demand reload 

(4) send a packet core packet : 
(5) send a retransmission if necessary 


1DBO 7O7C 402A if i2mpok+foo(r4) ;some important stuff 


1DB4 SA11 
1DB6 48A0 clear r2 suse an indexed dispatch 
repeat 
1DB8 GO7A 479A lda r7,i2mist(r2)+ ;next to call 
1DBC 1026 save r2 
1DBE 4077 call (r7) ;do a check 
1DCO SAO7 if success ;it sent something 
1DC2 300C 4024 unlock i2mloc(r4) :done I2M 
10C6 6026 restore r2 
1DC8 300C 002A set i2mpok(r4) ;schedule another check 
1DCC 6006 return 
endif 
1DCE 6026 restore r2 
1iDDO 4E28 OOOA while r2 < #1li2mist :more to do 
1DD4 92F2 
endrepeat 
endif 
FCOO 0400 page PkgCode ; lovely little hack to keep table out of way 
479A table i2mist 
479A 47A4 i2mhihy 
479C 4808 i2mfld 
479E 4834 i2mdemrel 
47A0 4870 i2mpke 
47A2 1E18 i2mrxm 


endtable i2mist 


page LCode 
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;check for regular stuff 
1DD6 787C 0002 if byte phflag(r4) .bit. #phup :if up, maybe send data 
1DDA 4FF4 
{DDC SA1B 
1DDE 707C 4000 lock lockm(r4) yneed this for the next checks 
1DE2 SAFE 
:look for data to send now 
1DE4 481C 0038 set ri = #spriq(r4) :;send priority first 
1DE8 7021 set r2 = (ri) ypacket here? 
1DEA 8909 if odd ;nope 
1DEC 4A94 add ri.4#sregq-spriq :try regular ‘Q 
1DEE 7021 set r2 = (ri) ppacket here? 
1DFO 8906 if odd snope 
1DF2 4078 1F16 call i2mnul ;;unlock lockm ;maybe send a null 
1DFG6 300C 4024 unlock i2mloc(r4) ;done modem out 
1DFA SOE9 return 
endif 
endif 
1DFC 4078 1EC6 call i2msfc ;assign us a channel 
1EOO SA08 if success ;can send one 
: Ilda r7,#20 set retransmission count 
1EO2 4878 0020 SET STIMER(R1)=4 D32 
1EO6 3079 0094 
1EOA 4078 1F56 call i2msnd : and send packet 
1EOE 9002 else ;some impossible case 
1E10 3004 unlock (r4) y:lockm :give up 
endif 
endif 
endif ;7mbusy 
1—£12 300C 4024 unlock i2mloc(r4) 


1E16 9ODB endroutine i2m 
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-comnt | 
Build and 


FCOO 
47A4 


47A6 
4TAA 
47AC 
47BO 
47B4 
47B6 
47B8 
47BA 
47BC 


47BE 
47C2 
47C6 
47C8 
47CC 


47D0 
47D2 
4706 
47DA 
47DC 
47EO 
47E4 
47E6 
47E8 
47EC 
47FO 
47F2 
47F6 
47F8 
4TFA 
47FE 


4802 


4806 


0400 
1076 


707¢C 
SAFE 
783C 
4F38 
8A05 
3004 
6076 
4FFO 
4007 


4038 
383C 
3004 
4B38 
4C38 


48A5 
7078 
307C 
4927 
7078 
307C 
4927 
48FO 
307C 
787C 
A2F7 
307C 
4927 
4923 
302C 
303C 


4078 
6006 


PLURIBUS V2.9B 
PAGE 4 


send a Hel lo/IHY 


4000 


0002 
0080 


0080 
0002 


FFOS 
A202 
62DE 
0018 
62E2 
0016 
0010 
OO1A 
0010 
0014 
0012 


1FDC 


Page PkgCode 


25-Jun-87 10:57:29 
IMP Modem 10 Code 


PAGE 144 


routine I2MHIHY, arg r4, uses ri-r3/r5 


lock lockm(r4) 


Idab r3,phflag(r4) 
if r3 .nbit. =shihy 


unlock (r4) 
fail return 


endif 

eor r3,f#shihy 

stab r3,phflag(r4) 
unlock (r4) 7; 1ockm 
and r3,=helst 


ior r3,=ruttyp+combi t+iherdu+spfon 
=nullhd+seqh(r4) 


>; set ri = 
set r2 = =<seqh/words+ 
Ilda r7,sync 
sta r7,nullhd+seqh(r4) 
sub r2,r7 
Jda r7,mine 
sta r7,nullhd+srch(r4) 
sub r2,r7 
lda r7,#0 
sta r7,nullhd+neth(r4) 
ldab r7,modem(r4) 
sll r7,7 
sta r7,nullhdtneth(r4) 
sub r2,r7 
sub r2,r3 
sta r2,nullhdtchkh(r4) 
sta r3,nullhd+typh(r4) 
ihycum: 
call i2mxmit 


endroutine i2mhihy 


7; lockm 


1> 


ymust control phflag 
;there’s no hello to send 


;done here 


;clear this bit 
sand change Flag 


;Cclear internal info 
;nominal HIHY 
;last word of msg 
;build checksum 


74seqh 


sasrch 


:7chkh 
ti typh 


;send it} 


;build HIHY backwards 
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.comnt 


I2MFLD- send out routing update 


If buffer on rupq for this modem, send it out unless line is 
in reset or neighbor not running SPF. 
Turn on retransmission timer for this IMP. 


4808 1076 Routine I2MFLD, arg r4, uses r2-r3, uses r5 
480A 783C OO1A Idab r3,modem(r4) ;our modem number 
480E 703B OEB6 Ida r3,bittab(r3) sour mask bit 
repeat 
4812 4078 5584 call rupdeq yattempt to get an update 
4816 8A04 if fail 
4818 6076 fail return ynothing for us 
481A 4FFO 
481C 4007 
endif 
481E 4078 1704 call peksubr ;check its checksum first 
4822 9AO5 until zero ;okay 
4824 E406 Trap 2006,<;Bad cksum in routing update - page 144> 
4826 4078 S55D2 call rupfils ;ignore this one. try again 
482A SOF4 endrepeat 
482C 4CA1 jor r2,=1 ;flag so I2MRLA will get it 
imcfld: shook to count updates sent 
482E 4078 1FD4 call i2mqxmit ;send the update 


4832 6006 endroutine i2mfld 
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0400 


1076 
7O5C 
9A18 
305C 
4878 
307C 
4878 
307C 
4878 
4975 
307C 
48D0 
48B0 
481C 
3031 
4078 
6006 


6076 
4FFO 
4007 


402C 


0016 
CAFE 
0018 
c100 
0012 
7407 


0014 


0010 


1FDC 


PAGE G6 IMP Modem IO Code 


;send a demand reload if asked 


page PkgCode 


routine i2mdemrel 

Ida r5,demand+foo(r4) 

ifnot zero 
sta r5,nulthd+srch(r4) 
Ilda r7,=dempas 
sta r7,nullhd+seqh(r4) 
lda r7,=rlidtyp+tdemrel 
sta r7,nullhd+typh(r4) 
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:get demand Flag 
pits set} 
;set demand flag 
;password 


lda r7,4-<dempastrIidtyp+demrel -<pk th/words>> 


sub r7,r5 
sta r7,nullhd+chkh(r4) 
Ida r5,#0 
lda r3,#0 
Ida ri,#nullihd(r4) 
sta r3,(r1) 
call i2mxmit 
return 
endif 
fail return 


endroutine i2mdemrel 


make checksum 

and make it look good 
;odeven endbit dscpkt 
;Cchanum 

where to send from 
;ineth 
;send it 


+ 08 oe oe oe oe 
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FCOO 
4870 


4872 
4876 
4878 
487A 
487C 


487E 
4882 
4884 
4886 
488A 
488C 
4890 
4894 


4896 
489A 
489E 


48A2 


48A4 
48A6 
4BAA 
48AC 
48AE 
48B0 


48B4 


0400 
1076 


702C 
8A04 
6076 
4FFO 
4007 


4078 
0100 
48F 1 
317A 
8BO6 
7O7C 
4078 
4000 


4078 
4078 
4078 


6006 


1076 
787C 
4FF2 
9A04 
48F 1 
387C 


6006 


OO2E 


1480 
0350 
402E 


131E 


48A4 
1512 
1FD4 


0002 


0003 


PAGE 7 IMP Modem IO Code 

;send packet core or routing, if needed. 
page PkgCode 

routine i2mpkc, arg r4, uses ri-r3, uses rS 


lda r2,sbik(r4) ;check for packet core. 


if zero ;no packet core block to send 
fail return snot done yet 

endif 

call wheorm,whi2m :add i2m ownership 

Ida r7,=1 :pkce retransmit count. 

subm r7,chan-chain(r2) ' 

if minus ;transmitted enough times 


;free sblk for next 
:flush that buffer. . 


Ilda r7,sblk+foo(r4) 
call flushb,whf2h 


endif 

call pkchold shold off resets 

call unpack ;get buffer addresses. 
call i2mqxmit ;transmit routing buffer. 


endroutine i2mpkc 


;PKCHOLD 
shold off modem resets if packet core is active 


routine pkchold,arg r4 


if byte phflag(r4) .bit. /#inhrst :; liable to reset? 
setb auxcnt(r4) = =1 
endif 


endroutine pkchold 
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;retransmit first on sent queue, if needed. 


page LCode 

1E18 1076 routine i2mrxm, arg r2-r5, uses ri-r3/r5 
1E1A 7O07C 4000 lock lockm(r4) 
1E1E SAFE 
1E20 787C 0002 if byte phflag(r4) .nbit. #phup :send only if line up 
1E24 4FF4 . 
1E26 8AO3 
1E28 3004 unlock (r4) 7; lockm 
1E2A 6006 return ;succeed to do nothing else 

endif 
1E2C 481C 0034 Ilda ri,=ssentq(r4) 
1E30 4078 154A call deque, whi2m 
1E34 0100 
1E36 8A05 if fail 
1E38 3004 unlock (r4) >: 1ockm 
1E3A 6076 fail return 
1E3C 4FFO 
1E3E 4007 

endif 
1E40 7079 OOSA set r7 = st(ri) ;it’s last send time 
1E44 727C 0032 add r7,mrtime(r4) :plus retransmit time 
1E48 71F8 6G2E8 sub r7,@clock ;less time now : 
1E4C SBOF ifnot minus ;don’t retransmit yet. 
1E4E 7078 OOD2 setmap m2,mapv2 ;requeue at lead of sent q 
1E52 3078 FCO4 
1E56 7O7C 0034 lda r7,ssentq(r4) 
1E5A 3072 sta r7,(r2) ;put q after this packet. 
1E5C 8903 if odd 
1E5E 302C 0036 sta r2,esentq(r4) 

endif 

1E62 302C 0034 sta r2,ssentq(r4) ypacket onto q. 
1E66 3004 unlock (r4) +; lockm 
1E68 SOES fail return 

endif 
1EGA 4853 Ida r5,r3 ;save chan over call 
1E6C 4078 17D4 call pceksubr ;checksum packet. 
1E70 SA12 ifnot zero ;bad checksum} 
1E72 E411 Trap 2021,<;broken cksum on retransmission - page 147> 
1E74 4815 Ida ri.rs :get CHAN to free channel 
1E76 A694 srl ri,4 pack quadrant 
1E78 4A1C 0082 add ri,#chnbsy(r4) ;where bits are in block 
1E7C 4875 Ilda r7,r5 :low bits of channel # 
1E7E 4BFE and r7,= HE ;just those 
1E80 7O7F OEBG lda r7,bittab(r7) ;channel bit 
1E84 3D71 eorbm r7,(r1)  ;:chnbsy :free for use 
1E86 48F1 lda r7,/14 
1E88 327C 0050 addm r7,slots(r4) ;count this freed 
1E8C 4078 41AA call ckqput ;send it for analysis 
1ESO0 3004 unlock (r4) >; 1ockm 
1E92 90D4 fail return 

endif 
1E94 4835 jda r3,r5 ;recover chan 
1E96 7051 Ida r5,(ri) ;;neth odeven 


1E98 48" . Ida r7,=1 


j ) 559 


1ESA 3179 0094 subm r7,stimer(r1) ;decrement retransmit centr. 
1E9E 8A11 if zero ;O0 mod 32 rexmits. 


1EAO 4F58 2000 if r5 .bit. =dscpkt ;packet marked for discard? 
1EA4 SAO5 — 
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1EAG 
1EA8 
1EAC 


1EAE 
1EBO 
1EB4 


1EB8 
1EBC 


1ECO 
1EC4 


E412 
4078 
900A 


E413 
4c58 
4078 
4878 
3079 


4078 
S0B3 


1CF4 


2000 
2382 


0020 
0094 


1F56 


PAGE 8.1 IMP Modem I0 Code 


Trap 2022,<;64 retransmissions: killed line - page 148> 


call killin 
else 
Trap 2023,<;32 retransmissions: discard packet - page 148> 


ior rS,=dscpkt :;set dscbit for i2msnd 
call cdelay ;compute delay. 
lda r7,= D032 ;try another 32 times. 
sta r7,stimer(r1) 
endif 
endif 
call i2msnd ;send packet in r2. 


endroutine i2mrxm 
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1ECG 
1EC8 
1ECA 


1ECE 
1EDO 
1ED4 


1076 
48B0 
487C 


6857 
4E58 
810A 
4A38 
763C 
8104 
6076 
4FFO 
4007 


SOF4 


1016 
4891 


4F51 
SA04 
A291 
4AB2 
SOFC 


1017 
48D0 
TFAF 
8A03 
4858 


303A 
6016 
4078 
0100 
8A02 
9SOE7 


6006 


0082 


OOFF 


0010 
001C 


FFDO 
8000 
0350 


154A 


PAGE 9 IMP Modem [0 Code 


;select a free channel for data packet. 


routine i2msfc, arg ri-r2,. arg r4, result ri-r3, result rS 


Ilda r3,=0 :select a free channel. 
Ida r7,=chnbsy(r4) 
repeat 


Idab r5,(r7)+ 
until rS <> = HFF 


add r3,= H8'2 
if r3 = maxchn(r4) 


fail return 


endif 
endrepeat 


i773 is free channel group. 
save ri 
lda ri,=1 ;channel mark bit. 
repeat 
while r5S .bit. ri 


ell rig 
add r3,=2 
endrepeat 


7r3 is channel, ri is bit 
iorbm ri,(-r7) ymark channel used 


Ida r5,=0 

if byte ri .nbit. tsex-chnbsy(1r7) :get the odeven bit 
lda r5,=odeven ;set the bit 

endif 

sta r3,chan-chain(r2) ;clobbers chan if bad buffer 

restore m1 ;restore queue head pointer. 


call deque,whi2m 


tf fat] 
fail return 
endif 
endroutine i2msfc 


561 
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1F16 
1F18 
1FAIC 
1FIE 
1F22 
1F24 


1F26 


1F28 
1F2A 
1F2E 
1F30 
1F32 
1F36 
1F3A 
1F3C 
1F3E 
1F42 
1F44 
1F46 
1F48 
1F4A 
1F4C 
1F4E 


1F50 
1FS4 


1076 
707C 
9A04 
4078 
9002 
3004 


6006 


1076 
4858 
48AS 
4925 
481C 
7038 
3031 
4923 
7038 
1031 
4923 
1021 
1051 
48B0 
48D0 
1031 


4078 
6006 


0030 


1F28 


8100 


0018 
62DE 


62E2 


1F74 
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;send nulls to acknowledge received packets. if needed. 


routine i2mnul, 


if snull(r4) 


call i2msnl 
else 


arg r4 


unlock (r4)  ;;lockm 
endif 
endroutine i2mnul 
;send nulls 
routine i2msnl, arg r4 


lda 
lda 
sub 
Ida 
Ida 
sta 
sub 
lda 
sta 
sub 
sta 
sta 
lda 
lda 
sta 
imenul 
call 


:we need to send any nulls. 
;send null 
;free modem vars lock. 


;always succeeds to terminate loop. 


rS,=rutnul+ruttyp :setup the null 
r2,=<seqh+2>/words 


f2,e5 7a typh 

r1,=nullhd+segh(r4) 

r3,sync 

r3,(r1) :;seqh 

r2,r3 

r3,mine 

r3.(-r1) ::srch 

r2,.r3 

r2,(-r1) 77ehkh 

r5,(-r1) yi typh 

r3,= 7; chanum 

FS, = ;7Oodeven endbit dscpkt 

r3,(-r1) pineth 

ls ;hook to count nulls 
i2mdun ;now, actually send nul). 


endroutine i2msnl 
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1F56 


1F58 
1F5C 
1F60 
1F64 
1F68 
1F6C 
1FGE 


1F72 
1F74 
1F76 
1F7A 
1F7E 
1F82 
1F86 
1F88 
1F8C 
1F90 
1F94 
1F98 
1F9C 


1F9SE 
1FAO 
1FA2 
1FAG 
1FA8 
1FAA 
1FAC 
1FBO 
1FB2 


1FB6 
1FB8 
1FBA 
1FBC 
1FCO 
1FC2 
1FC6 
1FCA 
1FCE 
1FD2 


1076 


302C 
7OF8 
30793 
4B58 
787C 
8903 
4c58 


9002 
1076 
702C 
4B2A 
752C 
352C 
3004 
707C 
4E78 
7O7C 
4E78 
487C 
8C08 


AGA 
9A05 
4A58 
4AF1 
SOFB 
9006 
702C 
A2B7 
7CSF 


4C53 
7151 
3251 
3159 
7837 
7939 
3239 
3139 
4078 
6006 


0026 
62E8 
OO9A 
AOOO 
0002 


4000 


0030 
FFFF 
0030 
0030 


001C 
0010 
o01Cc 
0010 
0062 


0100 


4030 


0001 


0004 


0003 
0002 
0004 
1FDC 
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:modem output utility routines 


sri:buffer address,r2:chain,r3:chn*2,r4:i2mblk, ‘ 


;r5:odeven and dscpkt(needs mask 
routine i2msnd, arg ri-rs 


ing) 


imcumpkt: ;cumstats im hook 
sta r2,snding(r4) ;buffer being sent 


Ilda r7,@clock 

sta r7,st(r1) 

and r5,=odeven) dscpkt 

Idab r7,phflag(r4) 

if odd timaster 
ior r5,=endbit 

endif 


;ri:buffer address, r3:chn*2,r4: 
;r5:odeven/endbit/dscpkt 
entry i2mdun, arg ri, arg r3-rs 


Ida r2,snull(r4) 
and r2,=-1(r2) 

eor r2,snull(r4) 
eorm r2,snull(r4) 


unlock (r4)  ;;1lockm 

Ilda r7,maxchn(r4) 7:8 or 1G 
cmp r7,= D8'2 

Ida r7,maxchn(r4) :8 or 16 


cmp '7,= D8t2 
lda r7,=rsex(r4) 
VF 1 ssif r7 > # DIG*2 
repeat 
srl r2,i 
until zero 
add r5,= H100 
add r7,=1 
endrepeat 
else :special 
Ida r2,snul1+foo(r4) 
811 r3,7 
jorb r5,1(r7) 
endif 
for r5.c3 
sub r5,(ri) 
addm r5,(r1) 
subm r5,chkh(r1) 
Idab r3,(r7) 
subb r3,typhti(rt) 
addm r3,typh(r1) 
subm r3,chkh(r1) 
call i2mxmit 
endroutine i2msnd 


;note time sent 


ymark us as high imp 


i2mb1k, 


swhich ACK group to send? 
;do lowest first 


special case 


special case 


rmany channels- general case 


case- 8/16 channels’ 
:will ACK all channels 
smove chanum over 
;insert high ACKs 


setup packet chn-id (neth) 


:ineth 

sineth ;fix neth 
;correct checksum 
s3;rsex 

;update main ACK field 
;fixed acks 

sand checksum 

;send buffer in snding 


563 
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rr4:i2mbik, ri:packet, r2:chain 
;if ri neg then snding=chain else send null. 


1FD4 1076 routine i2mqxmit, arg r1/r2/r4, uses ri/r2/r5 
1FDG6 302C 0028 sta r2,later(r4) ;remember output bufer 
;just xmit buffer here 
1FDA 9002 entry i2mxmit, arg ri, arg r4, uses ri-r2, uses r5 
1FDC 1076 
1FDE 4811 Ida ri,ri :null if positive 
1FEO 8BOE if minus 7im2 mendf ;if real buffer. 
1FE2 4821 lda r2,ri1 
1FE4 7219 0030 add r1,bufe(ri) 
1FE8 4828 1FFE and r2,=packm 
1FEC AGA4 srl r2,4 
1FEE 7428 808C ior r2,m2/slfptr 
1FF2 7078 OOD2 setmap m2,mapv2 
1FF6 3078 FCO4 
1FFA 9008 else 
1FFC 481C 2018 Ida r1,=nullhd+segh+mendf-m1i(r4) 
2000 482C AO1O Ida r2,=nullhd-mi(r4) 
2004 AGA4 sri ir2,4 
2006 7428 OODO jor r2,mapvar ;start hardware here 
endif 


200A 705C 0020 lda r5,iobloc(r4) 
200E 302D 0008 sta r2,starto(rs) 


2012 707D OOOA lda r7,endo(r5) 
2016 AGF4 srl r7,4 
2018 4072 eor r7,r2 
201A 4B78 O1FF and r7.=packm_-4 
201E SA04 ifnot zero ;error in xmit 
2020 E405 Trap 2005,<;Start pointer write failed - page 152> 
2022 302D 0008 sta r2,starto(rs) 
endif 
2026 301D OOOA sta ri,endo(rs) 
202A A2A4 sll r2,4 ;now unpack the starting address 
202C 4878 1FFF Ilda r7,= HIFFF 
2030 4B17 and r1,r7 
2032 4B27 and r2,r7 
2034 4912 sub ri,r2 7R1 = 4 of bytes transmitted 
2036 A691 srl #43,4 ;R1 = # of words transmitted 
2038 4A94 add r1,=4 ;Include 8 of 9 framing characters 
203A 707C 400C Ida r7,flipper+foo(r4) ;hack to add 1/2 word. (X16 style}) 
203E 8A04 if zero 
2040 300C OO00C set flipper(r4) 
2044 4A91 add ri,=1 
endif ; 
2046 321C 0008 addm r1,loword(r4) : increment low-order 
204A 8BO7 if minus yincrement high-order if "carry" 
204C 48F1 Ida r7,=1 
204E 327C OOOA addm r7,hiword(r4) 
2052 A7Fi eet 77. ;7Sign :quick get sign bit 
2054 357C 0008 eorm r7, loword(r4) yand clear it in low order 
endif ‘1 


2058 6006 endroutine i2mxmit 
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1076 
7049 


705C 
70B8 


7O7C 
SAFE 
702D 
4F28 
9A04 
300C 
9054 
701D 
9B24 
4F28 
9A03 
E402 
9004 
48F1 
327C 


4878 
747C 
307D 
703C 
702C 
302C 
4078 
OO8E 
4078 
300C 
4823 
7628 
9104 
4078 
8000 


81CO 
0020 
62E8 
4042 


0006 
2000 


4042 
0004 


0100 


0006 


0100 
OO1E 
0006 
0044 
0046 
0044 
158E 


21BO 
4042 


63CA 


131E 


PAGE 13 


routine m2i, arg r{ 
Ida r4,mblks(r1) 
pim2ihw: 
lda r5,iobloc(r4) 


Ida r3,@clock 
lock m2iloc(r4) 


lda r2,statim(r5) 
if r2 .bit. =mbusy 


unlock m2iloc(r4) 
else 
lda ri,endi(rs) 
ifnot minus 
if r2 .bit. =mquit 


Trap 2002,<:modem input 


else 

Ilda r7,=1 

addm r7,ckerrs(r4) 
endif 


Ilda r7,=mreset 

ior r7,mloop(r4) 
sta r7,statim(r5) 
Ilda r3.filling(r4) 
Ida r2,nxtbf(r4) 
sta r2,filling(r4) 
call sioin,bufend 


call m2inxt 
unlock m2iloc(r4) 


PLURIBUS V2.9B 25-Jun-87 
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m2iloc locks the hardware busy bit, filling and nxtbf 


z:r1ois PID level. 
;modem block pointer. 


;modem device address. 
;timestamp for arriving packet. 
; lock hardware level 


:device input status. 
;modem still busy 


;release modem. 


;transfer done, look,at new packet. 


rbuffer end pointer. 

;imendf ;no end flag. 
zistatim 

quit (INPUT LOST) - page 153> 


;just count hardware errors. 
7; in param block. 


;reset modem. 
:start input to next buffer. 
;start modem input. 


raet new buffer 
;release hardware. 


Ida r2,r3 ti filling 


if r2 <> junk 
call flushb,whm2i 


endif 


sreturn buffer to system. 


565 


Pluribus IMP 1301 


MODEM.PLR;2 


20C8 
20CA 
20CCc 
20CE 
20D2 
20D6 


2008 
20DC 
20EO 
20E4 
20E8 


20EA 
20EE 
20FO 
20F2 
20F6 
20F8 
20FA 
20FC 
2100 
2102 
2104 
2106 
2108 
210C 
2110 
2114 
2118 
211C 


2120 


902E 
1016 
1036 
702C 
4078 
OO8E 


7O5C 
302C 
4078 
7O7C 
SAFE 


300C 
6036 
6016 
7658 
9115 
4825 
4851 
4078 
8000 
8A03 
E4c1 
900D 
3039 
3059 
7078 
3078 
3OAC 
302C 


300C 


0046 
158E 


0044 
0044 
21BO 
4048 


4042 


63CA 


1500 


oos6 
o0so 
ooD2 
FCO4 
004C 
004C 


4048 


PAGE 14 


;end bit set, so no error. 
else 
save ri,r3 


lda r2,nxtbf(r4) 
call sioin,bufend 


lda r5,filling(r4) 
sta r2,filling(r4) 
call m2inxt 

lock Imiq(r4) 


unlock m2iloc(r4) 


restore ri,r3 


PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 155 
IMP Modem I0 Code 


Handle input normally. 
;packet has end flag. 
;Save end pointer. 


;next buffer to use 


;Sstart modem up on this buffer. 


;previous input buffer 
;current (new) input buffer 
;get new buffer 

;now queue the packet 


:;Bill says to watch out for this lock order. 


;end pointer. 


if r5 <> junk iifilling ;real data in buffer. 


Ilda r2,r5 
lda r5,r1 
call unpcekc,whm2i 


if fail 


:gain access to buffer 
;save end pointer. 
;unMpack and check. 


snot our buffer 


Trap 2301,<;filling buffer error - page 154> 


else 
sta r3,it(ri) 
sta r5,bufe(r1) 
setmap m2,mapv2 


sta r2,@emiq(r4) 
sta r2,emiq(r4) 
endif 
endif 
unlock Imiq(r4) 
endif 
endif 


;timestamp buffer. 
;Save end pointer 


;queue onto software queue. 


:release software queue. 


‘ yy 
} ) 567 
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;process software queue until empty or some work done. 


0001 »3f 2 LBIa 
setmap mO,mappkg :set map O to pkg page if not code map. 
.endc 
repeat 
2124 481C OO4A Ilda r1,=smiq(r4) ;come here if hardware is busy 
2128 7071 lda r7,(r1) 
212A 993A until odd 
212C 707C 4000 lock lockm(r4) 
2130 SAFE 
; someday, ‘bz m2ihw’ 
2132 7O7C 4048 lock Imiq(r4) 
2136 SAFE 
2138 4078 154A call deque,whm2i 
213C 8000 
213E 8AOS if fail 
2140 300C 4048 unlock Imiq(r4) 
2144 3004 unlock (r4) 4; 1lockm 
2146 902C break 
endif 
2148 300C 4048 unlock Imiq(r4) 
214C 70793 0030 Ilda r7,bufe(r1) ;end pointer from endi 
2150 4971 sub r7,ri >im2 ;bumming sign bit from hardware 
2152 9BO6 if minus } r7 > =bufend-hrdoff } r7 < =srch 
2154 4E78 OO8C 
2158 9CO3 
215A 4EF6 
215C 8207 
215E 4EF6 if r7 < =srch 
2160 8203 
Trap 2003,<:Modem input short (BAD DATA INPUT LOST) - page 155> 
2162 E403 
155 
2164 9002 else 
Trap 2001,.<:Modem bad end ptr *** CALL MAINT *** (H) - page 155> 
2166 E401 
155 


endif 
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2168 
216A 


9016 
3079 


3049 
4078 
SA07 
E410 
4078 
3004 
gs0D2 
s009 
7031 
7059 
A3D4 
4BDE 
40FD 
8A06 


00s0 
0032 
1704 


41AA 


0002 


21A0 


PAGE 16 IMP Modem 10 Code 
else ;end ptr ok. 
sta r7,bufe(r1) ;save buffer length. 
micumi: ;Cum Stats Mociem Inputs Hook 
sta r4,inch(r!) ;save input channel. 
call pcksubr ;checksum packet. 


ifnot zero 
Trap 2020,<;Modem s/w failure - page 156> 
call ckqput 
unlock (r4)  :;1lockm 
next 
else 
Ida r3,(r1) z7neth 
Ilda r5,typh(r1) 
ri. r5,4 ‘ 
and rS,=<paktyp+combit>_- D12 ;ready to dispatch 
call @m2idsp(r5) :0n packet type 
break if succeed 
endif 
endif 
unlock (r4)  ;;1ockm ;free modem lock before flush. 
call flushb,whm2i 


endrepeat 
endroutine m2i 


table m2idsp ;dispatch on packet type. 
m2ireg ;Regular Data packet. 
rfail ; Incompatible Regular packet. 
m2ireg ;Control packet, 
rfail ;Incompatible Control packet. 
m2irut ;Routing and Null packets. 
m2irut ;Same with combit set 
m2irid ;Reload packets. 
rfail ; Incompatible Reload packet. 


endtable m2idsp 
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21BO 
21B2 
21B6 
21B8 
21BA 
21BC 


21CO 


21C4 
21C8 
21CC 
21D0 


21D2 
2104 
21D8 
21DA 


21DE 
21E0O 
21E2 
21E4 
21E6 


21E8 
21EC 
21EE 
21FO 
21F4 


21F6 
21F8 


21FA 
21FE 


1076 
4078 
8000 
8A06 
48F 1 
3278 


7028 


302C 
7078 
3078 
6006 


1076 
787C 
9903 
4038 


4FF2 
9A04 
6076 
4FFO 
4007 


4F38 
9AO05 
E5C2 
4078 
SOF7 


4FF4 
8A01 


4078 
6006 


13C6 


64AE 
63CA 


0046 
ooD2 
FCO4 


0002 
4000 


4000 


1CF4 


2200 


PAGE 17 IMP Modem 10 Code 
yroutine to get a new input buffer and set it up 
yas the next buffer 


routine m2inxt, arg r4, uses ri-r2, result r2 F 
call freget,whm2itnmi :get next free buffer. 


if fail ;ho free buffer 
Ilda r7,=1 ;count times this happens 
addm r7,mnobuf 

micume: ;cumstats moclem errors hook. 

Ilda r2,junk ;read next into junk. 

endif ' 

sta r2,nxtbf(r4) ;next input buffer 

setmap m2,mapv2 :fix map 2 


endroutine m2inxt 
ip1 = packet buf pointer, r2 = chain, r3 = neth, r4 = modem block. 


routine m2ireg, arg ri-r4 
ldab r7,phflag(r4) 


ifnot odd zimaster 

eor r3,=endbit ;he’s higher imp 
endif 
if r7 .bit. =inhrst :in reset 


fail return 


endif 

if r3 .bit. =endbit : line suddenly looped. 
Trap 2702,<;Suddenly looped line - page 157> 
call killin 
fail return 

endif 

if r7 .nbit. =phup 


. Trap 2710,<;Accepting pkt on dead line - page 157> 
endif 
call doak 

endroutine m2ireg 


569 
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FCOO 
48B6 


48B8 
48BC 
48CO 
48C2 
48C6 
48CA 
48CC 
48D0 
48D4 
48D6 
48DA 


48DC 


48EO 
48E2 
48E4 


48E6 
48E8 
48EC 
48FO 
48F2 
48F6 
48F8 
48FC 
4900 
4904 
4908 
490C 


0400 
1076 


7079 
4F78 
9A13 
70793 
4E78 
810B 
4838 
7059 
9B04 
3058 
48B2 


3038 


6076 
4FFO 
4007 


3004 
4078 
4078 
cooo 
7078 
SAFE 
30A8 
3028 
3008 
7878 
30F8 
6006 


0002 
0100 


0008 
CAFE 


FFFE 
0006 


6S51E 


651C 


48A4 
146C 


AF48 


656A 
656A 
AF48 
6F43 
OOAC 


PAGE 18 IMP Modem IO Code 


Page PkaCode 


routine m2irld, arg r2, arg r4 


if typh(r1) .bit. =demrel ;demand reload packet? 
if seqh(r1) = =dempas :yes, password correct? 
Ida r3,=n.reload :yes, assume nice reload 
Ilda r5,srch(r1) 
ifnot minus ;panic demand? 
sta rS,nstlin :yes. start with this line 
lda r3,=p.reload ;Ppanic reload flag 
endif 
sta r3,nsrtf 
endif 
fail return ;always flush this packet 
endif 
unlock (r4)  ;;lockm 
call pkchold ;no modem resets please 


call wheorb,whm2i?whf2h 
lock lockfd+coriob 


sta r2,@efhcq 

sta r2,efhcq 

unlock lockfd+tcoriob 

ldab r7,bhpidtcoriob 

sta r7,@pid 
endroutine m2irid 


:Qive fake jam 2 a wakeup 


/ ‘\ 
) 571 
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@M2IRUT - all type 2 (routing) messages come here 
;They are further subdivided by subtype 

sinto nulls, eld routing, new line up/down 

sand spf updates. 


490E 1076 routine m2irut, arg r1i, arg r4, uses r5 
4910 7859 0002 Idab r5,typh(r1) ipkt type word 
4914 4BD7 and r5,=pflags_- H8 
4916 A2D1 sll r5,1 :now a good offset 
4918 40FD 4926 call ®rutdsp(r5) 
491C 8A04 if fail 
A491E 6076 fail return 
4920 4FFO 
4922 4007 

endif 
4924 6006 endroutine m2irut 

‘ 

4926 table rutdsp ;dispatches for type 2 messages 
4926 O7D8 rfail :old routing (ignored) 
4928 4936 m2inul :null 
492A 4940 m2ihihy pnew line up/down 
492C 4A10 m2irup :spf update 
492E O7D8 rfail 
4930 0O7D8 rfail 
4932 O7D8 rfail 
4934 O7D8 rfail 


endtable rutdsp 
sroutines to process null and routing cases of routing packets. 


4936 1076 routine m2inul null with acks 
4938 7031 Ida r3.(r1) yineth 

493A 4078 2200 call doak 

493E 6006 endroutine m2inul 
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.comnt | 
modem to imp routine to decipher hello (ihy) pkt and set flags in. 
the modem block for DEDL. Called from M2I with: 


ri - buffer pointer 

r4 - modem block 

C set up for the pkt 
4940 1076 Routine M2IHIHY, arg ri/r4/m2/m3, uses r3/r5, local r2 
4942 1026 
4944 782C 0002 setb r2 = phflag(r4) ;get line state 
4948 7839 0000 Ildab r3,neth(r1) 
494C 383C OO9F stab r3,rmodn(r4) 
4950 7039 0006 Ida r3,srch(r1) :neighbor’s IMP number 
4954 787C OO1A ldab r7.,modem(r4) ;doubled modem number 
4958 303F 63AG sta r3,m2nghb(r7) ;update one of the neighbor tables 
495C 7E78 72BD if byte r7 = thd ; line to accept sync on? 
4960 8105 . 
4962 7079 0008 Ida r7,seqh(r1) :yes, copy network sync time 
4966 3078 62DE sta r7,sync 

endif 
496A 7E3C 0005 if byte r3 <> neigh(r4) yneighbor change? 
496E 910D 
4970 787C OOO5S ldab r7,neigh(r4) :yes, get old neighbor 
4974 S9A08 ifnot zero ;was there a neighbor? 
4976 ES5C6 Trap 2706,<;Neighbor IMP number changed - page t60> 
4978 4078 1CF4 call killin :yes, kill line (zeroes neigh) 
497C 6026 fail return 
4S97E 6076 
4980 4FFO 
4982 4007 
endif 7 
4984 383C 0005 stab r3,neigh(r4) 7no, record new neighbor 
endif 


;more m2ihihy over leaf 
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4988 
498C 
498E 
4990 
4994 
4996 
4998 


499C 
49A0 
49A2 
4944 
49A6 
49AA 
49AC 
49B0 
49B2 
49B4 
49B6 


49B8 


49BC 
49BE 
49CO 


4904 
49CG 


782C 
4FA2 
8A1B 
7638 
9116 
1026 
4828 


SOSA 
SBOE 
4E54 
910C 
7E3D 
8109 
787D 
4FF4 
9A03 
6026 
90E3 


787D 


88FO 
6026 
383C 


48F 1 
327C 


0002 


62E2 


0010 


635E 


0004 


0002 


4004 


0004 


OOBS 
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;M2IHIHY continued 


Idab r2,phflaa(r4) 
if r2 .nbit. =inhrst 


if r3 <> mine 


save r2 
Ida r2,=nmd'words 
repeat 
Ilda r5,m2pbIk(-r2) 
ifnot minus } r5 = r4 


if byte r3 = Inei(r5) 


ldab r7,phflag(r5) 
if r7 .bit. =phup 


restore r2 
fail return 
endif 
ldab r7,1nei+foo(r5) 
endif 
endif 
until loop 
endrepeat 
restore r2. ;;phflag 
endif 
stab r3,Inei(r4) 
endif 
lda r7,=1 
addm r7,gotihy(r4) 


; (OVER) 


;get line state 
:don’t change Inei during reset 


multiple looped lines okay 


:;for a temp 
;search for duplicates in Inei 


:;modem block address 
;don’t check this line 
;match? 


vyes, so get line state 
;is line up? 


;yes. have double line to 
;neighbor, leave this one down 


;line dead. clear Inei 


;restore current line state 


;update this line’s Inei 


scount a received Hello/IHY 


573 
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49CA 
49CE 
4900 
49D4 
4906 


49D8 
49DA 
49DC 
49DE 
49EO 
49E4 


49E6 
49E8 
49EC 
49EE 
49F2 
49F6 
49F8 
49FA 
49FC 
49FE 


4A00 
4A04 


4A06 


4A0A 
4A0E 


7059 
4BD5 
7638 
8102 
4DD1 


4025 
4FA3 
8A05 
ESCS 
4078 
90CC 


48B8 
7C3C 
S90F 
4C38 
4078 
4053 
4FD4 
9A08 
4FB4 
9A04 


4078 
SOBC 


4078 


3C3C 
90B7 


0002 


62E2 


1iCF4 


0002 


0080 
14E8 


1CF4 
4724 


0002 


PAGE 22 
;M2IHIHY continued 


Ilda r5,typh(rt) 
and r5,=phup}master 
if r3 = mine 


eor r5,=master 
endif 
eor r2,r5 
1f eZ snbt:. 


Trap 

call 

fail 
endif 
lda r3,=rcdhel 
iorb r3,phflag(r4) 


killin 
return 


ifnot odd ;imaster 
jor r3,=shihy 
call pokem 
eor r5,r3 
if rS .bit. =phup 
if r3 .bit. =phup 


. Trap 2015,<;Slave 
call killin 
fail return 
endif 
call 
endif 
endif 
iorbm r3,phflag(r4) 
fail return 


lineup 


endroutine m2ihihy 
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:get protocol bits 
;is line looped? 


;reverse sense 


=master+inhrst 


1G2> 


;kill line 


;mark we received hello/ihy 
:for timeout processing 


;Slave must send immediately 
;set i2mpok and poke modem 
;check that states match 

; line states different in master 


;was slave up? 
obeys master down - page 162> 


;yes, must go down now 


ino, then time to bring it up 


;uipdate line flags 
;always flush packet 
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.comnt | M2I SPF Routines 


M2IRUP - Process input routine update 


Determine which lines update should be sent out. 
Determine whether to accept update for processing. 
Acks retransmissions, floods new updates 


4410 1076 Routine m2irup, arg ri-r2, arg r4. uses r3, uses r5 
4A12 1026 push r2 ;save 2 
4A14 48B0 jda r3,=0 yassume packet is not retrans 
4A16 7051 lda r5.(ri) sineth °* 
4\18 8BOA if minus ;7rupret 
4A1A 4838 8000 lda r3,=rupret ;packet is a retransmission 
4A1E 31314 subm r3,(r1) :ineth ;turn retry bit off 
4A20 3239 0004 addm r3,chkh(r1) :Fix checksum 
4A24 783C OO1A ldab r3,mocem(r4) ;modem number 
4A28 703B OEB6 Ilda r3,bittab(r3) :bit for our line, send ack back 
endif 
4A2C 7829 0007 Idab r2,srchti(ri) tirupsre ;source JMP number 
4A30 7628 62E2 if r2 = mine 
4A34 8110 
4A36 7078 72A6 ifnot inifla :somebody else has our number} 
4A3A 8A0D 
4A3C 3004 unlock (r4) ;:lockm ;nothing we should do 
4A3E 3008 6518 set nspc ;remeber us causing this 
4A42 48F2 P set nsrtf = =p.reload :panic into loader 
4A44 3078 651C 
4A48 4878 OBAD set nsftof = # HOBAD 7a defunct boston newspaper 
4A4C 3078 6516 
4ASO 4008 1072 jmp loopmv ;let timeout kill it for real 
endif 
endif 
4AS54 A2A14 81.1 72,4 ;double IMP number’ 
4A56 1026 save r2 ;preserve [MP number: 
4A58 4078 4A90 call m2irck ;validate update | 
4A5C 9AO0S if succeed ;succeed on ACK or new update 
4AS5E 3008 B2C6 unlock spfrtl] ;done with spfrut 
4A62 4078 593C call rtoff sack or new: stop timer 
endif 
4AG6 6016 pop ri ;IMP*2 to R1 
4A68 6026 pop r2 :get back original r2 
4A6A 4EBO if r3 <> =O ;if anyone must process 
4AGC S10F 
4AGE 3004 unlock (r4)  ;;1ockm sunlock m2i blk, no more fails 
4A70 4078 25E8 call nemove,cntrs+nrut z:move into routing count 
4A74 63E0O ‘ 
4A76 8A04 if fail ;no room in routing 
4A78 48F1 Ilda r7,=1 ;take it anyway, but 
4A7A 3278 SEAC addm r7,rupnbf ;count occurances 
endif 
4A7E 4078 146C call wheorb,whm2i}whrut ;change ownership 
4A82 8080 


575 


usnis ‘ssed0ud pynoys suo ou: uunzeu Lies 9L09 V8VP 
$}pus 
uunzeud 9009 88Vvr 


577 
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4A8C 4FFO 

4A8E 4007 


endroutine m2irup 
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M2IRCK ~ validate SPF update using age and serial number. 


Locks SPFRTL and returns with it still 
return on old update. 


Fail 


Succeed with new update (serial > current) 


or ack or rebound (serial = 


current). 


locked if succeed. 


Updates spfrut with new serial number and age if new. 


dl (iad 
r2. = 
rs = 
r4 - 


rS - neth 


1076 


4F58 
8A04 
6076 
4FFO 
4007 


7059 
4B58 
7078 
SAFE 
TOTA 
4F78 
9A12 
4B78 
4975 
8A05 
48F 1 
3278 
6006 


4F78 
8A07 
48F1 
3278 
3008 
SOE 1 


7051 
755A 
4858 
755A 
715A 
325A 
3158 
7038 


gor 


7000 


0006 
3FOO 
B2c6 


7T2FC 
0070 


3FOO 


SE8C 


2000 


SE8A 
B2c6 


72FC 
3F70 
72FC 
72FC 
72FC 
72C4 
T2AA 


buffer pointer 

source IMP number (doubled) 

mask bits for who should process update 
modem block 


routine M2IRCK, arg ri-rs, 


if rS .nbit. =rupage 


fail return 


endif 

Ida r5,srch(r1) 
and rS,=rupsno 
lock spfrtl 


Ida r7,spfrut(r2) 
if r7 .bit. =spfage 


and r7,=spfsno 
sub r7,r5 
if zero 
Ida r7,=1 
addm r7,rupdp1 
return 
endif 
if r7 .nbit. =rupsho 
Ida r7,=1 
addm r7,rupobs 
unlock spfrtl 
fail return 
endif 
endif 
jorb r5,(r1) 
eor r5,spfrut(r2) 
and r5,=spfage+spfsno 
eor r5,spfrut(r2) 
sub r5,spfrut(r2) 
addm rS,spfrut(r2) 
subm r5,spfsum 
set r3 = rupmsk 


yineth 


endroutine m2irck 


result r3, 


uses r5 


:age of update zero,’ bug? 


. 


;get update’s serial number 
;keep aligned in left byte 
;don’t accept on two modems 


;get current age and serial 


; if our age zero, accept update 
;not zero, check serial number 
;current - input 

;input = current? 

;yes 


;add to duplicate count 
sack or rebound, just return 


swithin half the range? 


7no 
;count an obsolete update 


; input must be old 

;update is acceptable 
;combine new age and serial 
;insert into spfrut 


;delta sum 


yadjust checksum 


«flood new update out all lines 
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2200 
2202 
2206 
220A 
220C 
220E 
2212 
2216 
2218 
221A 
221E 
2220 


2224 
2228 
222C 
222E 
2230 
2234 
2238 
223A 
223C 
2240 
2242 
2244 
2246 
2248 


224A 
224C 
2250 
2254 
2256 
2258 
225A 
225E 
2260 
2262 
2266 
2268 
226A 
226C 
226E 
2270 
2274 
2278 
227A 
227C 


1076 
7O7C 
4E78 
gCOD 
4853 
7D5C 
3D5C 
A2D8 
A4B7 
4B38 
48FO 
4008 


7O7C 
4E78 
gcoc 
4853 
7D5C 
3D5C 
A2D8 
A4B7 
4B38 
48FO 
93004 
48D0 
7871 
4BFF 


1076 
4A7C 
7Ccs9 
7057 
3057 
1056 
7079 
8B06 
3004 
4078 
8000 
902F 
4853 
AGD4 
4BDF 
4A5C 
787D 
4833 
8B03 
4078 


OO1C 
0010 


0053 
0053 


801E 
224A 
001C 
0010 


0053 
0053 


BO1E 


0052 
0003 


0002 


131E 


0072 
FFFO 


OOF F 
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;Process acknowledgements. ri= buffer pointer, r2 = point 
sword, r3 = neth, r4= modem block. 


routine doak, arg ri-r4 
lda r7.maxchn(r4) 
if r7 <= = D8*2 


lda r5,r3 rineth 
eorb r5,tsex+i(r4) 
eorbm r5,tsext+1(r4) 


Si FS, Hs 
sra r3, H7 
and r3,=odevent<chanum_-7> 
Ida r7,=0 
jmp newloop 
endif 


Ilda r7,maxchn(r4) 
if r7 <= = D8*2 


Ida r5,r3 ;ineth 
eorb r5,tsex+i(r4) 

eorbm r5,tsex+1(r4) 

sil rs. H8 

sra r3, H7 

and r3,=odevent<chanum_-7> 


;8 and 16 channel special case. 


:get chan 8-15 ACKs 
;and mark TSEX 

:;to high byte 

;CHAN * 2 now 

;remove extraneous bits 
yalways ACK group O 


;8 and 16 channel special case. 


;get chan 8-15 ACKs 
sand mark TSEX 

;to high byte 

;CHAN * 2 now ; 
;remove extraneous bit 
;always ACK group O 


;ne high ACKs 


yack group 


lda r7,=0 
else 
Ilda r5,=0 
ldab r7,(r1) :ineth 
and r7,= HF 
endif 
;Pi:buffer, r3:chan, r5:high acks, r7:Ack Group. 
newloop: 
push r7 


add r7,=tsex(r4) 
iorb r5,typh+i(r1) 


eorb r5,(r7) ;;tsex 

eorbm r5,(r7) ;;tsex 

push r5 

lda r7,typh(r1) 

if minus ;iruttyp 
unlock (r4) ;;lockm 


call flushb,whm2i 


else 

Ilda r5,r3 

sri r5,4 

and r5,= HF 

add r5,=infree(r4) 

ldab r7,rsex-infree(r5) 
lda r3,r3 

if minus ;7;O0deven 

eor r7.f# HFF 
endif 


;Save ack group 
;point to right TSEX 
;pick up low ACKs 


;and mark TSEX changes 


;save acks for us to do 
;this a null? 


;now check for duplicates 


7128 chans 
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2280 4BBE and r3,= HE 
2282 737B OEBG and r7,bittab(r3) 
2286 7F75 if byte r7 .bit. (r5) 7: infree 
2288 SAOF 
228A 3075 eorbm r7.(r5) 7: infree 
228C 3004 unlock (r4)  ;;lockm 
228E 495C 0072 sub r5,=infree(r4) ;just ack group 
2292 A2D8 sll r5, H8 ;to LH 
2294 4C57 ior r5,r7 ; include bits 
2296 4078 146C call wheorb,whm2i?whtsk 
229A 8001 
229C 305A 0350 sta r5,chan-chain(r2) ;signal to task 
22A0 4078 14C6 call tskput 
22A4 9011 else 
22A6 4EFO if r7 = =O ;true duplicate? 
22A8 810B 
22AA 495C 0072 sub r5,-infree(r4) :yes, get ack group 
22AE 48F14 Ida r7,=1 
22BO A275 sll r7.r5 
22B2 347C 0030 iorm r7,snul1(r4) ;ack on duplicate 
22B6 787C OOOE - Idab r7,motpid(r4) 
22BA 30F8 OOAC sta r7,®pid :wake up i2m to send them 
endif 
22BE 3004 unlock (r4) 3; lockm 
22CO 4078 131E call flushb,whm2i 
22C4 8000 
endif 


endif 
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;done with r2 - not using pointer to the packet either. 


22C6 6016 pop ri yacks to do 
22C8 6036 pop r3 ;restore channel number. 
22CA AOB4 sla r3,4 picarry ;base of ACK group *2 also clears carry 
22CC 4E90 if r1 <> =O 
22CE 913D 
repeat 
repeat 
22D0 A591 pra nt. ;odd bit goes to carry 
2202 9403 until carry 
22D4 4AB2 add r3,=2 . 
22D6 SOFD endrepeat 
22D8 1016 push ri 
22DA 4818 0100 Ilda ri,=whi2m 
22DE 482C 0034 lda r2,=ssentq(r4) . 
22E2 707C 4000 lock lockm(r4) 
22E6 SAFE 
begin f indackedpacket 
repeat 
22E8 4852 Ilda r5,r2 : locate the packet 
22EA 7025 Ida r2,(r5) 
22EC 9914 until odd ;exhausted SENTQ 
22EE 771A OGAO if ri .nbit. where-chain(r2) 
22F2 8A05 
22F4 48A1 Ida r2,=1 
22F6 3025 sta r2.(r5) ::0dd ;we’re Flushing no packet 
22F8 E40A Trap 2012,<;bad sentq - page 168> 
22FA S000 break 
endif 
22FC 763A 0350 if r3 = chan-chain(r2) 
2300 8109 
2302 7072 Ida r7.(r2) 
2304 3075 sta r7,(r5) 
2306 8903 if odd 
2308 305C 0036 sta r5,esentq(r4) 
endif 
230C 4078 234A call clrchn 
2310 9013 leave findackedpacket 
endif 
2312 SOEB endrepeat 
2314 702C 4026 Ida r2,sndingt+foo(r4) ;check buffer being sent 
2318 SA09 if NZero & r3 = chan-chain(r2) ;got buffer 
231A 763A 0350 
231E 8106 
2320 302C 0028 sta r2,later(r4) :flush when clone 
2324 4078 234A call elrchn fix ack bits 
2328 9006 else 
232A 302C 0026 sta r2,snding(r4) ;save this for future use 
232E E414 Trap 2024,<;Unexpected ACK - page 168> 
2330 4078 1CF4 call killin skill line now 
endif 


2334 48A1 Ilda r2,=1 
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2336 
2338 
233A 
233C 
2340 


2342 


2344 
2346 


2348 


3004 
4822 
9904 
4078 
0100 


4AB2 


6016 
8AC5 


6006 


1332 


SN 
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;here after finding (or not) acked packet 
unlock (r4)  :;1lockm 
lda r2,r2 
ifnot odd ;got a buffer to flush 


call flush,whi2m ;OFF modem retransmit queue 
endif 
add r3,=2 ::carry :clears carry 
pop ri 
until zero 
endrepeat 
endif 


endroutine doak 
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234A 
234C 
234E 
2350 
2354 
2356 
2358 
235C 
235E 
2360 
2364 
2368 
236C 
236E 
2372 
2374 


2378 
237C 
2380 


1076 
4813 
A694 
4A1C 
4873 
4BFE 
TO7TF 
3071 
48F1 
327C 
327C 
4078 
7071 
4F78 
8A03 
4078 


7078 
3078 
6006 


0082 


OEB6 


0050 
0040 
1512 
2000 
2382 


ooD2 
FCO4 
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;clear channel busy bit 


routine clirchn, arg r2-r4, uses ri 


lda ri,r3 

srl r1,4 

add ri,=chnbsy(r4) 
lda r7,r3 

and r7,= HE 

lda r7,bittab(r7) 
eorbm r7,(r1) 

lda r7,=1 

addm r7,slots(r4) 
addm r7,thrupt(r4) 
call unpack 

if (ri) .nbit. =dscpkt :;neth 


call cdelay 
endif 
trom2i: 
setmap m2,mapv2 


endroutine clirchn 


;clear chnbsy bit 


;7chnbsy 


;don’t do delay for discards 


shook for trace package 
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- INSERT "DEL" 
-INSRT DEL 
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tables for each speed. 


DEL.PLR; 1 PAGE 2 Packet Delay Computation 
-stitl Packet Delay Computation 
page Dummy 
0000 -=0 
0000 kb32: -blkw 1 
0002 kb48: -blkw 1 
0004 kb64: -blkw 1 
0006 kb128: .blilkw 14 
0008 kb256: .blkw 1 
OOOA kb390: .bikw 1 
FCOO 0400 Page RutCode 
4AF8 table tdtab ;pointers to tdel 
4AF8 4B04 tbh32kb 732 Kops 
4AFA 4B14 tbh48kb 748 Kbps 
4AFC 4B24 tbh64kb :64 Kbps 
4AFE 4834 tb1i28kb 7128 Kbps 
4B00 4844 tbh256kb 7256 Kbps 
4B02 4B54 tb390kb 7390 Kbps 
endtable tdtab 

4B04 table tb32Kb ;32 kb tdel table. 
4B04 OO4E -word D78 
4BO6 0077 -word D119 
4B08 OOSF -word D159 
4BOA OOCB -word D203 
4BOC OOF4 -word D244 
4BOE O11C -word D284 
4B10 0148 -word D328 
4B12 0171 -word D369 

endtable tb32Kb 
4B14 table tb48Kb 748 Kb tdel table. 
4B14 0034 -word D52 
4B16 OO4F -word D793 
4B18 OO6A -word D106 
4B1A 0087 -word D135 
4B1C OOA2 -word D162 
4B1E OOBD -word D189 
4B20 OODA -word D218 
4B22 OOFS5 -word 0245 

endtable tb48Kb 
4B24 table tb64Kb 764 Kb tdel table. 
4B24 0027 -word D39 
4B26 O003B -word D593 
4B28 OO4F -word 079 
4B2A 0065 -word D101 
4B2C 0079 -word D121 
4B2E OO8E -word D142 
4B30 OOA4 -word D164 
4B32 OOB8 -word D184 

endtable tb64Kb 
4B34 table tb128Kb 7128 Kb tdel table. 
4B34 0014 -word D020 
4B36 00 -word D30 


4B38 
4B3A 
4B3C 
4B3E 
4B40 
4B42 


4B44 
4B44 
4B46 
4B48 
4B4A 
4B4C 
4B4E 
4B50 
4B52 


.word 
.word 
. word 
.word 
.word 
.word 
endtable 


D40 
D50 
D6O 
D70 
D80 
DSO 
tb128Kb 


table tb256Kb 


.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
endtable 


D10 
015 
D20 
B25 
D30 
035 
040 
D45 
tb256Kb 


table tb390Kb 


7256 Kb tdel 


7390 Kb tdel 


table. 


table. 
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4B54 
4B54 
4B56 
4B58 
4B5A 
4B5C 
4B5E 
4B60 
4B62 


0007 
OOOA 
OOOoD 
0010 
0014 
0017 
001A 
001D 


0008 
0002 
0186 
0003 
0003 
0002 


PAGE 2.1 


.word 
.word 
. word 
.word 
.word 
-word 
.word 
.word 


endtable tb390Kb 


D7 

D10 
D1i3 
DiS 
D20 
D23 
D26 
D29 
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Packet Delay Computation 


;smoother parameters. 


thrini= D8 ;thresh init value 

thrdcy= D2 ; thresh decay value 

dsfreq= D10*< D10000/ D256> ;smoother calling frequency(10 seconds) 
delshf=3 7places to right shift packet delay 

smoshf=3 ;places to right shift average delay 

srtshf=2 ;place to shift from packet delay (6.4 ms) 


;to routing retransmit time (25.6 ms units) 


- = 
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CDELAY - calculate delay for a packet through the IMP. 
Delay = sent time - arrival time + transmission delay 

+ propagation delay 
Delay is computed in 800 microsecond units and then right 
shifted by delshf and added into the double precision sum, 
The packet count is also increased by one. 


page LCode 
2382 1076 Routine CDELAY, arg ri, local ri-r2, arg r4 
2384 1016 
2386 1026 
2388 7029 OOSA_ 1da r2,st(ri) ;sent time 
238C 7129 0096 sub r2,it(ri) yarrival time 
2390 787C OO1B Idab r7,clockm(r4) :which modem clock to use. 
2394 7019 0090 Ida ri,bufe(r1) ;buffer length in bytes 
2398 499E sub ri,=data-hrdoff ;don’t count header 
239A A693 spi r4,.3 ;<data word length/8>*words 
239C 721F 4AF8 add ri,tdtab(r7) ; transmission delay entry 
23A0 7221 add r2,(r1) ;add in transmission delay 
23A2 AGAS srl r2,delshf ;divide by power of 2 
23A4 4891 Ilda ri,=1 ;add in delay for packet 
23A6 707C 4092 lock dlock(r4) ; lock delay struct. 
23AA SAFE ‘ 
23AC 322C 0098 addm r2,dellow(r4) ;add packet delay to cum delay. 
23B0 8403 if carry 
23B2 321C 0096 addm ri,delhi(r4a) ;if needed, increase high delay. 
endif 
23B6 321C 0094 addm ri1,dpent(r4) : increment packet count 
23BA 300C 4092 unlock dlock(r4) 
23BE 6026 endroutine CDELAY 
23C0 6016 


23C2 6006 
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FCOO 0400 page RutCode 
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TOSMOOTH - controls calling of delay modules. 
Times averaging interval and at the end of the interval calls 
SMOOTH for each line and then calls COMPAR. 


4B64 1076 Routine TOSMOOTH, uses ri-r5 

4B66 7058 72B6 Ilda r5,smoclk 

4B6A 49D2 sub r5,=words ;tick another fast tick 

4B6C SBO7 ifnot minus 

4B6E 4E58 0010 if rS < =nmdtwords ;end of interval? 

4B72 8203 

4B74 4078 4B8C call smooth ;yes, smooth for line in rs 

endif 

4B78 9007 else 

4B7A 4078 4C14 call compar ;all lines have been done, 

4B7E 4858 O30C lda r5,=dsfreq*words ;compare, then reset clock 

4B82 4078 23C4 call rutsleep ;sleep before going on 
endif 

4B86 3058 72B6 sta r5,smoclik 

4B8A 6006 endroutine TOSMOOTH 
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SMOOTH - compute average packet delay for a line. 

R5 contains modem number (doubled) for line to average. 

Sum of individual packet delays and the count of packets 
on the line have been recorded by CDELAY. 

Delay total has to be scaled to 16 bits from 32. 

Then divide is called to compute the average. 

The result is then shifted by smoshf compensated by 

the number of shifts done prior to dividing to scale to 

16 bits. 


4B8C 1076 Routine SMOOTH, arg r5, uses ri-r4 
4B8E 704D 635E Ida r4,m2pbIk(r5) :get modem blk address 
4B92 9822 ifnot minus 
4894 787C 0002 ldab r7,phflag(r4) :line state bits 
4B98 4818 OOFF Ilda ri,=dlinf :delay on dead line 
4B9C 4FF4 if r7 .bit. =phup sis it UP? 
4BSE SA1A 
4BAO 707C 4092 lock dlock(r4) :yes, get delay sum and count 
4BA4 SAFE 
4BA6 701C 4098 Ilda ri,dellowt+Foo(r4) ;clear and get low 16 bits 
4BAA 702C 4094 Ilda r2.dpent+foo(r4) count of packets 
4BAE 703C 4096 lda r3,delhitfoo(r4) shigh 16 bits of delay sum 
4BB2 300C 4092 unlock dlock(r4) 
4BB6 4078 4BD8 call davrcae 
4BBA 761D 4142 if ri < bias (r5) ;Don’t report too small 
4BBE 8203 
4BCO 701D 4142 Ilda ri.,bias (r5) 
endif 
4BC4 761D 4152 if ri > delmax (r5) ;nor too large a delay either 
4BC8 8CO3 
4BCA 701D 4152 lda r1i,delmax (r5) 
endif 
4BCE 4078 23C4 call rutsleep ;time for a rest 
endif ' 
4BD2 381C OOSA stab ri,delave(r4) ;current average delay 
endif 


4BD6 6006 endroutine smooth 
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DAVRGE - calculate average packet delay from total delay 
and total packet count. 
First scale total delay to 16 bits and remember number of 
places shifted for post divide shift. 
ri is low 16 bits of delay 
r3 is high 16 bits of delay 
r2 is packet count 
4BD8 1076 Routine DAVRGE, arg ri-r3, result r1, local r5 
4BDA 1056 
4BDC 48CO @®lear r4 
4BDE 4EBO repeat until r3 = =O shift out all bits in r3 
4BEO 9106 
4BE2 0208 clear carry yecarry used in linked shift 
4BE4 A5Bi rra r3,1 ynext bit into carry 
4BE6 A591 rra ri, ;pick it up in ri 
4BE8 4AC1 add r4, =1 
4BEA SOFA endrepeat 
4BEC 4EAO if r2 == 7;no samples at all 
4BEE 810B 
4BFO 704D 635E lda r4, m2pblk(r5) :get parameter block 
4BF4 781C OO1B Idab ri, clockm(r4) ;line speed 
4BF8 7019 4AF8 lda r1, tdtab(r1) ;its transmission delay table 
4BFC 7019 OOOA lda ri, 5twords(r1) :6th entry for typical packet 
4COO 48CO lda r4, =O ;no shifting please 
4CO2 9003 else 
4C04 4078 1600 call divide ;compute average 
endif 
4CO8 A214 stl rt. 4 :correct for pre-shift 
4COA 721D 12D6 add ri,propdl(r5s) ;now add propagation delay 
4COE AGS3 srl ri,smoshf 
4C10 6056 endroutine davrge 


4C12 6006 
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.comnt | 
COMPAR - determine if update should be generated. 


Called when all 


lines have been smoothed to see 
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if any 


of the current average delays have exceeded the threshhold 
If so, set RUPSND so RUPGEN will generate 


for reporting. 


an update. 


4ci4 
4C16 


4C1A 
4C1E 
4C20 
4024 
4028 
4C2A 
4C2E 


4C30 
4C34 
4C36 


4C3A 
4C3E 
4c40 
4c44 
4C46 
4C4A 
4C4E 


4c52 
4c54 
4c58 
4CSA 
4c5c 
4c60 
4C62 
4c64 
4C66 


4CGA 


1076 
4858 


504D 
OBIE 
787C 
797C 
8B04 
4078 
4AF 1 


7E78 
9213 
4858 


504D 
SBOA 
7O7C 
SAFE 
787C 
387C 
300C 


88F4 
3008 
6006 
88EO 
7878 
49F2 
8B02 
48FO 
3878 


9OF7 


If not, decrement thresh by the decay value. 


0010 
635E 


OO9A 
OOSB 


FFFF 


72A9 
0010 
635E 
4092 
OO9A 


0O39B 
40392 


72B2 


72A9 


72A9 


Routine COMPAR, uses r4-r5 


Ilda r5,=nmd*twords 
repeat 
Ilda r4,m2pblk(-r5) 
ifnot minus 
ldab r7,delave(r4) 
subb r7,delbas(r4) 
if minus 
eor r7,=-1 
add r7,=1 
endif 
if byte r7 >= thresh 


Ida r5,=nmdtwords 
repeat 
Ilda r4,m2pb1k(-r5) 
ifnot minus 
lock dlock(r4) 


ldab r7.delave(r4) 
stab r7,delbas(r4) 
unlock dlock(r4) 
endif 
until loop 
endrepeat 
set rupsnd 
return 
endif 
endif 
until loop 
endrepeat 
ldab r7,thresh 
sub r7,=thrdcy 


if minus 
lda r7,=0 
endif 


stab r7,thresh 


endroutine compar 


: look at each line 
smodem block address 
;current average 

;last reported average 


;we want absolute value 
;do two’s complement 


;exceeded thresh? — 


:yes, report new average on all 


:lock out line up/down 


;copy current to base 


;generate an update 


sno line exceeded thresh 
7so just decay it 
;but not below zero 


lines 
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- INSERT "ROUTE" 
- INSRT ROUTE 
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ROUTE.PLR;1 PAGE 1 Routing Process 


.stitle Routing Process 
.comnt | 


SPF Routing Algorithm Routines 
WARNING: only sufficient for 7-bit IMP numbers} 


0010 .radix H10O ;let’s use hex 
;SPF data definitions 
page RutVars 


;Some SPF variables 


SE80 rupmap: .blkw 1 ;saved buffer map setting 
5E82 rupadd: .blkw 1 ;saved buffer address 
5E84 gupend: -blkw 1 ;end of line entries in packet 
SE86 head: -blkb 1 ;head of main process list 
SE87 scn: -blkb 1 :scan list for subtree 
5E88 subtre: .blkb 1 ;subtree list 
SE89 -blkb 1 ;unused 
page Vars :;collect these where visible 
7T2A6 iniflg: .blkw 4 ;0=>no non-looped line has come up yet 
72A8 ticimp: .blkb 1 ;IMP*2 last ticked by TICAGE 
72A9 thresh: .blkb 1 ;current delay threshhold for sending update 
72AA rupmsk: .blkw 1 ;mask of all configured linestrup4us 
72AC fidior: .blkw 1 ;ior of all masks on rupq 
T2AE srupq: -blkw 1 ;start of routing update queue 
72B0 erupq: .blkw 1 ;tail of routing update queue 
72B2 rupsnd: .blkw 1 ;non-zero=> send an update 
72B4 rretry: .blkw 1 ;non-zero -> set rupsnd next 25 ms tick 
72B6 smoclk: .blkw 1 :delay smoother clock 


;Testing and Measurement counters 


page RutVars 


SE8A rupobs: .blkw 1 ;number of updates judged too old by m2i 

5E8C rupdp1: .blkw 1 ;number of updates current but already seen 
5E8E rpkrec: .blkw 1 ;number of updates processed by us 

5E90 rinrec: .blkw 1 :number of line entries in packets we processed 
5E92 rqisum: .blkw 1 ;sum of queue lengths encountered 

5E94 rqimax: .blkw 1 :maximum queue length encountered 

5SESG rupent: .blkw 1 :number of updates generated 

5E98 rtrent: .blkw nind ;number of retransmissions generated per line 
SEA8 rtical: .blkw 1 :number of calls to rtinc 

SEAA retcal: .blkw 1 ;number of calls to retree 

SEAC rupnbf: .bikw 1 :;number of times modem couldn’t get buffer 

5EAE rpgnbf: .blkw 1 ;number of times rupgen couldn’t get buffer 
SEBO rtrnbf: .blkw 1 ;number of times rtrgen couldn’t get buffer 


5EB2 rupqet: .bilkw 1 :current length of the routing queue 
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72B8 


72BA 
72BC 
72BD 
72BE 
72CO 


72C2 
72C4 


72CA 
72CC 
T2FE 
72FE 


72FE 
T2FE 


8000 


3FOO 
0100 


0070 
0010 
OOOF 


8000 
7000 
OFOO 
0100 


3FOO 
2000 
OOF F 


FFOO 
OOF F 


8000 


PAGE 


;tabllies by IMP, 


PLURIBUS V2.9B 25-Jun-87 10:57:29 
2 Routing Process 


PAGE 182 


page Vars ;things system sees 


i: .blkw 1 ;O0 -> routing process reinitializing 

g: .blkw 1 :flag: post pass (SPFPOST) should run 

g: .blkb 1 ;flag: SPF tree may have changed 
-bIlkb 1 iline on which to accept sync 

5: .blkw 1 ;timer for 25 ms routing ticks 

k: .bIkw 1 ;timer for 8 sec checksum ticks 

m: .blkw 1 ;LTB checksum 

m: .blkw 1 ;SPFRUT checksum 


f spfrtl,<;Lock on common SPF tables - page 180> 
f rutlok,<;Lock on routing processing - page 180> 
:saved SP for routing process 


rut,< D25> ;Stack for routing process 


shared with other processes: 


table spfrut,words ; indexed by IMP*2 
bikw nimp 
pfded = H8s000 77sign ;this IMP dead or unreachable 
unused = H4000 
pfsno = H3FOO :current serial number 
pfsni = H100 sunit for above 
unused = H80 
pfage = H70 ;age of current update 
pfagi = HioO ;one-bit of age field 
outef = HOF ; index of best route line 
endtable spfrut 


ing update message fields 
h 
= H8000 
= H7000 
= HOFOO 
noni = rupnn- t&rupnn?rupnn 
h 
= H3FOO 
o= H2000 
c= HFF 
entry - first one at seqh 
h 
1= HFFOO 
i= HFF 
field - in CHAN 
n 
s= H8000 


;retry packet, must be echoed 
zage of data when sent 

;line entries in packet 

; low bit of RUPNN 


;serial number for this update 
y;high order bit of serial number 
;source of the update 


;delay(distance) along this line 
sneighbor at other’end of line 


;process update ourselves 
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ROUTE .PLR;1 PAGE 3 Routing Process 

FCOO 0400 page RutCode 

4C6C 0050 spfcrash: D80 ;IMP who should crash on SPFERR 
.comnt | 


Top level of Routing Code 
Checks for work to do: 
1. 25 ms timeout of various routing data bases: 
a. Routing retransmission timeout 
b. Delay smoother calculation 
2. Every 8 seconds - verify checksum of SPFRUT and LTB 
3. Flag (RUPSND) to generate a new routing update 
4. Routing updates to process on RUPQ 
All routines are interlocked by process lock RUTLOK. 


OOEA riGsec = 6*< D10000/ D256> 76 second delay restarting 
0138 re8sec = 8*< DIO0000/ D25G> ;8 second delay checksumming 
rtloop: 
4CGE 4868 72FE Ilda sp,=rutstack ;initial stack setting 
4C72 48FO clear rutini ;force all our lines down : 
4C74 3078 72B8 
4C78 7058 62E2 lda r5,mine ;who I am 
4C7C A2D1 ell PS.41 ; doubled 
4C7E 4078 S3FC call rtinit ;reset routing tables 
4C82 7018 62DA Ilda ri,time 725.6 ms clock 
4C86 4A18 OOEA add r1,=riGsec 
repeat 
4C8A 4078 23D0 call rutoff ;dismiss us 
4C8E 7618 62DA while r1 >= time sawait 6-second lapse 
4C92 82FC 
endrepeat 


4C94 7OF8 62E8 set rupt25 @c lock srpeset our 25 ms, cksum timers 
4cC98 3078 72BE 
4CS9C 7078 62DA set ruptck = time 


4CAO 3078 72CO 


;(main loop over) 
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;main Routing loop 


repeat 

4CA4 4878 0100 lda r7,# D256 
4CA8 7098 62E8 Ida r1,@clock 
4CAC 7118 72BE sub ri,rupt25 
4CBO 9803 if minus } ri >= r7 
4CB2 4E17 
4CB4 920C 
4CB6 3278 72BE addm r7,rupt25 
4CBA 4078 5748 call rtrto 
4CBE 4078 4B64 call tosmooth 
4CC2 7078 B2B4 Ida r7,m3/rretry 
4CC6 3478 72B2 iorm r7,rupsnd 
4CCA SOED next 

endif 
4ccC 4878 0138 lda r7,#rc8sec 
4CDO 7018 G2DA lda ri,time 
4CD4 7118 72CO sub ri,ruptck 
4CD8 3BO3 if minus } ri >= r7 
4CDA 4E17 
4CDC 9206 
4CDE 3278 72C0O addm r7,ruptck 
4CE2 4078 5436 call rupeksum 
4CE6 SODF next 

endif 
4CE8 7078 B2B2 if m3/rupsnd 
4CEC SA04 
4CEE 4078 564A call rupgen 
4CF2 90D9 next 

endif 
4CF4 7078 72AC Ilda r7,fldior 
4CF8 8BO04 if minus 
4CFA 4078 4DOA call rutspf 
4CFE 90D3 next 

endif 
4D00 3008 72B8 set rutinit 
4004 4078 23D0 call rutoff 
4D08 SOCE endrepeat 
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; forever P 
7100 us. ticks on RTC, 


;when we last ran 
;enough time gone by 


;nNow we ran 
;do the ticks 

:;do delay smoothing 
;retry RUPGEN maybe 


;chksum time interval 
;time now 

;when to check checksums 
;now} 


:when to check again 
;time to generate an update 
iget one 


;bits for RUPQ packets 
;got a new routing update in 


sinitialization done 
:dismiss us 
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.comnt 

RUTSLEEP/RUTOFF 


Put the Routing process to sleep, and return to LOOP, 
RUTSLEEP pokes us to resume later, RUTOFF doesn’t. 


Saves all 


23C4 


23C6 
23CA 


23CE 
23D0 


23D2 
23D4 
23D6 
23D8 
23DA 
23DC 
23E0 
23E2 
23E6 
23EA 


23EE 
23F2 
23F4 
23F6 


23FA 
23FE 
2400 
2404 
2408 
240A 
240C 
240E 
2410 


2412 


1076 


4878 
30F8 


9002 
1076 


1016 
1026 
1036 
1046 
1056 
7078 
1076 
3068 
3008 
4008 


0000 


7078 
SAFE 
8903 
4008 


7068 
6076 
TOTF 
3078 
6056 
6046 
6036 
6026 
6016 


6006 


registers, and map 2. 


0044 
OOAC 


80BE 
72CA 


72C8 
1072 


B2c8 


4CGE 
72CA 


OOBO 
FCO4 


page LCode 
routine rutsleep,arg mi,result mO-m1/m3 


set @pid = =rutpi 
entry rutoff,arg mi,result mO-m1i/m3 


save ri-rS,m2 ;save useful stuff |- 


sta sp,rutsp :save our stackpointer 
unlock mi#rutlok ;done the process 
jmp loopmv 


rutwak: 
.if nz f$maprt-Fmaped 


setmap mO,maprut ;get to routing code 


.endc 
lock rutlok ;resume the process 
if odd p7rutlok sreinit or timeout 
tr rtloop :re-enter routing loop 
endif 
lda sp,rutsp ;use saved SP 
restore ri-rS,m2 ;get back regs 


endroutine rutsleep/rutoff 
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.comnt 

SPF - The Shortest-Path First Routing Algorithm 

Builds up proper routing tables, using topology information and 
line "distance" (i.e., delay or bandwidth) estimates, and then 
maintains the routing as updates are processed. 


FCOO 0400 page RutCode :;this is in common 


.comnt | 
SPF Database Management Routines 


RUTSPF 

Searches routing queue for unprocessed packets. Looks for entries 
in the database which are missing from the packet being processed 
and calls SPF to declare the missing line dead. It then calls 

SPF for each line in the packet. When finished, it disposes of 
the packet and looks for another one. 


4DOA 1076 routine rutspf, uses ri-r5 
repeat 

4D0C 4838 8000 Ilda r3,=rup4dus ;select packets queued for us 
4D10 4078 5584 call rupdeq ;attempt to get a packet 
4D14 SAOD until fail ;no more to process, exit 
4016 4078 17D4 call peksubr ;checksum the packet 
4D1A 9A03 ifnot zero ;bad checksum} } 
4D1C E407 Trap 2007.<;bad update checksum - page 184> 
4D1E 9003 else 
4D20 4078 4D34 call dospf 

endif 
4D24 4838 8000 Ilda r3,=rup4us :finished with packet 
4D28 4078 55D2 call rupfls :;flush if last user 
4D2C SOFO endrepeat 
4D2E 4078 23C4 call rutsleep ;wait here 


4032 6006 endroutine rutspf 
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ROUTE.PLR;1 PAGE 7 Routing Process 
;DOSPF ? 
;Process the updates in this packet; called with packet in 
:R1/M2. Do pre-pass and post-pass too. Call SPF as needed 
4D34 1076 routine dospf,arg ri/m2,local r2,uses r1/r3-r5/m2 
4D36 1026 
4D38 7078 808C set rupmap = m2/#slifptr sremember buffer’s page 
4D3C 3078 SE80 
4D40 3018 5E82 sta ri,rupadd ;save buffer address 
4044 7871 ldab r7,(r1) ::neth 
4D46 4BFF and r7.=rupnn_~- H8 ;line entries in packet 
4048 A2F1 sil rtyd ;words to bytes 
4D4A 4A71 add r7,r1 ;buffer offset after updates 
4D4C 3078 SE84 sta r7,rupend 
4D50 7819 0007 ldab ri,srchti(r1) ;source IMP number 
4054 A291 ert Pt ;double it 
4D56 7078 OOD2 setmap m2,mapv2 ;get to routing vars 
4D5A 3078 FCO4 
4D5E 4858 OSFE Ida r5,4#ntbidx ;for this source’s SPF lines 
4D62 7049 85DE Ida r4,ntb(r1) 
4D66 4B45 and r4,r5 
4D68 7359 85E0O and r5,ntb+words(r1) 
4D6C 4E45 repeat until r4 = r5 ;find entries not in packet 
4DGE 910E 
4D70 787C 82CO if byte Itb+Itbdst(r4) <> #dlinf :only do live lines 
4074 4E&78 OOFF 
4078 9107 
4D7A 4078 4DBO call rupsearch :find it in packet 
4D7E 7078 OOD2 setmap m2,mapv2 iget back to routing vars 
4D82 3078 FCO4 
endif 
4D86 4AC2 add r4,=words pnext Tine this IMP 
4D88 SOF2 endrepeat 
4D8A 7048 5SE82 Ida r4,rupadd 7;now call SPF for each entry 
4D8E 7648 SE84 repeat until r4 = rupend 
4D92 910D ‘ 
4094 7078 SE80 setmap m2,rupmap ;to our buffer again 
4D98 3078 FCO4 
4D8C 683C 0008 Idab r3,seqh(r4)+ :new distance over line 
4DAO 682C 0008 Idab r2,seqh(r4)+ ;neighbor at other end 
4DA4 A2A1 Sit. 72.4 ;double it 
4DAG 4078 4DE2 call spf ;process line entry 
4DAA SOF2 endrepeat 
ADAC 6026 endroutine dospf 
4DAE GOOG 
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; RUPSEARCH 

;Make sure this update has an entry for each live 
;line in database from its source. Emit dummy 
;"line dead" messages to SPF for each line that has 
:gone away. R1/source IMP*2, R4/line index 


4DBO 1076 routine rupsearch.arg ri/r4/m2,uses r2/r3/m2 

40B2 782C 82C1 Idab r2,1tb+1tbnay(r4) neighbor this line 

40BS AGA1 srl wr2i54 ;un-doubled 

4DB8 7078 SE80 setmap m2,rupmap ;to update buffer again 

4DBC 3078 FCO4 . 

4DCO 7038 5SE82 Ilda r3,rupadd ;for all lines in update 

40C4 7638 SE84 repeat until r3 = rupend 

40C8 9107 

4DCA 7E2B 0009 if byte r2 = seqhti(r3) :find an update 

4DCE 8102 

4DDO 6006 return :all’s well this neighbor 
endif 

4DD2 4AB2 add r3,=words ;to next entry 

40D4 SOF8 endrepeat 

4DD6 A2A1 sll r2,.4 ;re-double neighbor 

4DD8 4838 OOFF Ida r3,#dlinf :;dummy dead line 


4DDC 4078 4DE2 call spf 


4DEO SOF8 endroutine rupsearch 


a 7 
{ 
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SPF 


Traps and ignores updates for out-of-range IMP numbers. 

Ignores looped line entry, calls FNDENT to find or create entry for 
both directions of the line, ignores the entry if no change over 
existing entry, computes change in distance and calls RTINC if node 
is reachable. In the post-pass to RTINC, it marks nodes with 
finite PDIST reachable and those with infinite, unreachable. 
Unreachable nodes are severed from the tree. 


4DE2 1076 routine spf,arg ri-r3,local ri,local r4-r5,uses r2-r3/m2 
4DE4 1016 
4DE6 1046 
4DE8 1056 
4DEA 4ES0 if r1 <= =O } ri > =nimptwords } r2 <= =O } r2 > =nimp*twords 
4DEC 8CO9g 
4DEE 4£18 OOFE 
4DF2 9CO6 
4DF4 4EAO 
4DF6 8CO4 
4DF8 4E28 OOFE 
4DFC 8CO3 

: Trap 2401,<;SPF: Ignoring illegal IMP in update - page 187> 
4DFE 4078 53D0 call spferr :kill system for now 

H fail return 

‘ return ;don’t kill SPF though 

endif : 
4EO2 4E£12 Fed) = p2 ;don’t process looped lines 
4E0O4 8105 
4EO6 6056 return 
4E08 6046 
4EOA 6016 
4EOC 6006 
endif 


4EOE 7078 OOD2 setmap m2,mapv2 
4E12 3078 FCO4 


4E16 4852 Ida r5,r2 
4E18 4821 lda r2,rt 
4E1A 4815 Ilda ri.,r5 


4E1C 4078 4EF6 call fndent 
if success 


:get to routing vars 


;swap ends first 
;check for entry for d->s 
;no database errors 


4E20 4812 Ilda ri,r2 
4E22 4825 Ida r2,r5 :Swap ends back 
4E24 4078 4EF6 call fndent ;find one for s->d 
if success ;database okay 
4E28 4853 lda r5,r3 ;remember new line distance 
4E2A 793C 82CO subb r3,1tb+ltbdst(r4) ;compute delta dist 
4E2E SA17 ifnot zero ;some change 
4E30 3A3C 82C0O addbm r3,1tb+ltbdst(r4) ;update this line dist 
4E34 3938 72C2 subbm r3.) tbsum sand LTB checksum 


smore SPF over leaf 


605 
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4E38 4E58 
4E3C 8103 
4E3E 4838 


4E42 7079 
4E46 A2F2 
4E48 4E78 
4E4C 9108 
4E4E 4078 


4E52 7078 


4E56 9A03 
4E58 4078 


4E5C 90D5 


1 


OOFF 
FFF 


87DC 
FFFC 
501C 
B2BA 


4ES5E 


PAGE 10 Routing Process 


;SPF continued 
if r5 = =dlinf 


Ilda r3,=pdinf 
endif 
> es call typupd 
Ida r7.pdist(r1) 
sll r7,2 yipdst 
if r7 <> =pdinf_2 


call rtince 
: if success 
if m3/ppflag 


call spfpost 


. if success 
H return 
+ endif 
endif 
; endif 
‘ fail return 
endif 
endif 
. return 
; endif 
; endif 


fail return 


endroutine spf 


;it’s dead} 
;use worst case path distance 


;print the update 
:is source reachable? 


:yes, so run SPF 
;process incremental change 
;post pass necessary? 


;do post pass 
;done everything now 


( ’ 
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; SPFPOST 

;do the SPF post-pass 

; look for nodes that have just become unreachable, 
j;and sever them from the routing tree. 


4ESE 1076 routine spfpost,uses ri-rs 
4E60 4828 OOFE Ilda r2,=nimp*words ; look at each IMPs entry 
4E64 4818 3FFF Ilda ri,#-1?1flg 7pre-load constants 


4EG8 4848 8000 Ilda r4,4spfded 


;most of SPFPOST over leaf a 
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4E6C 
4E70 
4E74 


4E76 
4E7A 
4E7C 
4E80 
4E82 
4E84 
4E88 
4E8A 
4E8E 


4E92 
4E94 
4E98 
4E9SA 
4E9C 
4EAO 
4EA4 
4EAG 
4EAA 
4EAC 
4EAE 
4EB2 
4EB4 
4EB6 
4EBA 


4EBE 
4EC2 
4EC6 


4ECA 
4ECE 
4EDO 
4ED2 
4ED6 


4EDA 
4EDE 


4EEO 
4EE4 


4078 
7078 
SAFE 


TO7TA 
A2F2 
4E78 
910A 
4852 
507A 
8B05 
314A 
3248 


9024 
SO7A 
9B21 
1056 
4858 
603A 
4B35 
735A 
4E35 
9112 
707B 
A2F1 
8B0B 
781B 
4078 


4818 
331C 
4848 


231B 
SOEE 
6056 
124A 
3148 


4F28 
8ACC 


3008 
88C4 


23C4 
B2C6 


870C 


FFFC 


T2FE 


72FE 


72C4 


J2FE 


O3FE 


85E0O 


85E0 


85E0O 


82C1 
5330 


3FFF 
85E0 
8000 


85E0O 


72FE 
72C4 


OO1E 


B2c6 


subm r4.spfrut+noimpo(r2) 
addm r4,spfsum 


endif 
else ;not reachable now 

Ida r7,spfrut+noimpO(-r2) ;; loop :marked unreachable? 
ifnot minus ;3;spfded ;no, must sever from tree 


save r5 

lda r5,4ntbhidx 

Ida r3,ntb+tnoimpO(r2)+ 
and r3,r5 


;need 


and r5,ntb+words(r2) ;for 
repeat until r3 = r5 
Ida r7,1flag(r3) ;this 
Si} 74 ; how? 
if minus ti 1flgb ;back 
Idab r1,1tb+]tbnay(r3) 
call findnay ;find 
: if fail ;some 
: unlock spfrtl 
: restore r5 
. fail return 
. endif 


Ida rl,#-1?1flg 
andm ri,1lflag(r4) 
lda r4,4#spfded 
endif 
andm r1,1flag(r3)+ 
endrepeat 
restore r5 
addm r4,spfrut+noimpo(-r2) 
subm r4,spfsum ; this 
endif 
endif 
while r2 .bit. #1E 
endrepeat 
unlock spfrtl 
until loop 
endrepeat 


;SPFPOST concludes over 


all 
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;SPFPOST continued 
repeat 
call rutsleep 7rest a bit now 
lock spfrtl : lock on shared data 
repeat 
lda r7,pdist(r2) ;tree distance this node 
sil 7,2 s:pdst ;quick mask 
if r7 <> #pdinf_2 ;reachable 
Ilda r5,r2 ;maybe THD 2 
lda r7,spfrut+noimpO(-r2) ;;loop :node unreachable?? 
if minus ;yes, currently 


:let net acces it 


sand Fix cksum 


another temp 
:re-increment R2} 


line entries, 


line’s use 
Tink 


its forward line 
error 


;fix the stack 


ti lfilgu 

;remove forward line 

;restore the constant 

:i1flgu ;no use for this line 


;get back THD candidate 


3: loop 
node unreachable 


;16 IMPs per pass 


;release data base 
:condition set in 3} places 


this node 


) 609 
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;SPFPOST concluded 


4EE6 701D 72FC lda ri,spfrut(rs) ;get route for SYNC 

4EEA 4B9F and r1,=routef ;modem to lowest IMP,,. 

4EEC 4991 sub r1,=1 ;MNumbered From O, 

4EEE A291 sll ri,1 sand doubled (FE} if we’re it) 
4EFO 3818 72BD stab ri,thd ;is THD (SYNC time source) 


4EF4 6006 endroutine spfpost 
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.comnt 

FNDENT Call with source for line in R1 and destination for line in R2. 
Returns index for line entry in r4. Searches the line entries of 


source for one with the proper destination. If none is found, a . 
search is made for a usurpable dead entry, ie a line entry that has no 
NAY field; OR a line entry that is dead whose corresponding reverse 
direction is also dead. In the case of a dead line whose reverse 
direction is also dead, the NAY field of both directions is cleared to 
indicate that they are free. The IMP number associated with the 
usurpable line entry is found by searching the NTB index table, 
starting at the source line, for an index just greater than that of 
the usurpable entry. 

The index of the usurpable entry and the IMP number associated with it 
are used to expand the tables as necessary, ie an impnumber the same as the 
source does not need to be expanded. 


4EF6 1076 routine fndent,arg ri-r2,local r3,local r5,result r4 
4EF8 1036 
4EFA 1056 
4EFC 4848 O3FE Ilda r4,/ntbidx ;we’‘ll look for match first 
4FOO 7059 85DE lda r5,ntb(r1) :in source’s line entries 
4FO4 4B54 and r5,r4 
4FO6 7349 85EO and r4,ntb+twords(r1) 
4FOA 4E54 1f r5> 4 ;some database error} 
4FOC 8CO3 
4FOE 4078 53D0 call spferr :;stop SPF then 
: fail return 
endif 
repeat ;search entries 
4F1i2 4E45 until r4 = rs ;no more entries 
4F14 9109 
4Fi6 49C2 sub r4,f#words 
4F18 7E2C 82C1 if byte r2 = 1tb+1ltbnay(r4) 
4F1iC 8104 
4F1E 6056 return ;entry exists this pair 
4F20 6036 
4F22 6006 
endif 
4F24 SOF7 endrepeat 
4F26 1026 save r2 ;save dest of new line 


;more FNDENT over leaf 
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4F28 
4F2A 


4F2c 
4F2E 
4F32 
4F34 


4F38 
4F3C 


49C2 
1016 


4AC2 
4E48 
9203 
4078 


7078 
4B78 


0320 
53D0 


86DE 
O3FE 
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:;FNDENT continued: can’t find pair; look now for usurpable entry 
sub r4,#words :let us increment early 
push ri ;set this up for later 
repeat ;Find usurpable entry 
add r4,=words ynext line slot 
if r4 >= #nlinetwords oops) } 
call spferr ;can’‘t find free slot 
endif 
Ida r7,ntbendi ;get pointer to spare entries 
and r7,/ntbidx ;just index 
if r4 >= r7 :spare entry, can always use 


4F40 
4F42 
4F44 
4F48 
4F4A 
4F4E 
4F52 
4F54 


4F56 
4F5A 
4FSE 
4F60O 
4F62 
4F64 
4F66 
4F68 
4F6C 
4FGE 
4F70 
4F72 
4F76 
4F78 
4F7C 
4F80 
4F82 
4F86 


4F8A 
4F8C 
4F8E 


4F92 
4F96 
4F98 
4FSA 
4F9C 
4FAO 
4FA4 
4FA6 
AFAA 


4FAE 
AERO 


4E47 
9204 
4828 
9037 
787C 
4E78 
81ED 
6026 


TO5A 
4B58 
4E54 
9co3 
4AA2 
SOF9 
1026 
787C 
9A21 
4E71 
8104 
762E 
91DB 
4858 
7O3F 
4B35 
7T35F 
4078 


4E35 
9203 
4078 


7E2B 
9103 
4AB2 
SOF8 
787B 
4E78 
81C4 
3228 
392B 


7O7C 
AN7TR 


0100 


82CO 
OOF F 


85E0 
OSFE 


82C1 


0002 


O3FE 
85DE 


8S5EO 
23C4 


53D0 


82C1 


82CO 
OOF F 


72C2 
82C1 


82CO 
T7902 


set r2 = Antbendi-ntb ;equiv imp number 


else not spare, must check 
ldab r7,1tb+1ltbdst(r4) ;distance across this line 
NEXT if r7 <> Adlinf ;can’t use, mot dead 
pop r2 ;begin search for IMP# here 
repeat 
Ida r5,ntb+words(r2) :end of lines 
and r5,/ntbidx ;just index 
until r5 > r4 ;line belonas to this one 
add r2,#words ;try next IMP 
endrepeat 
save r2 ;continue from here next time 
ldab r7,1tb+1tbnay(r4) ;neighbor on this line 
ifnot zero snot free, must check more 


NEXT if r7 = ri & r2 = 2(sp) ;other end of new line 


lda r5,4#ntbidx ;get to neiahs lines 
lda r3,ntb(r7) :where his lines are 
and r3,r5 
and r5,ntb+words(r7) rwhere his lines end 
call rutsleep swhew}), need a rest 
repeat ;look for other end of our line 
if r3 >= rS :didn’t find line}}} 
call spferr ;bad news 
endif 
until byte r2 = 1tb+)tbnay(r3) ;found the line 


add r3,/words 
endrepeat 
ldab r7,1tb+1ltbdst(r3) 


NEXT if r7 <> #dlinf ;reverse not dead, can’t use 


addm r2,1tbsum ;clear nay in reverse 
subbm r2,1tb+1ltbnay(r3) rentry usurpable now 
endif 
Ida r7,1tb(r4) :get contents of usurpable entry 


aAdcim e7 1thsum : remove its contribution to cksum 


‘ 


4FB6 9002 break ;have usurpable entry in r4 
4FB8 SOBA endrepeat 
4FBA 6076 pop r7 :fix stack 


;r1i= line source, r2= IMP# of usurpable slot, r4= usurpable slot 


uribus IMP 1301 
ROUTE.PLR;1 


PLURIBUS V2.9B 25-Jun-87 10:57:29 
PAGE 15.1 Routing Process 


(sp)= Dest for new line 


PAGE 196 
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4FBC 
4FBE 
4FCO 
4FC4 
4FCG 
4FC8 
4FCC 


4FDO 
4FD4 
4FD6 


4FD8 
4FDA 


4FDC 
4FEO 
4FE4 
4FE8 
4FEC 
4FFO 
4FF4 
4FF6 
4FF8 
4FFC 


4FFE 
5002 


5004 
5006 
500A 
SOOE 
5012 
5016 


SO1A 


4E21 
8Cc23 
4078 
4831 
48F2 
7059 
4858 


2278 
4E32 
81FD 


4E45 
9115 


507C 
307C 
7O7C 
757C 
4B78 
357C 
4874 
4975 
4F78 
BAFO 


4078 
SOEB 


6026 
487A 
307C 
3178 
4878 
337C 


9082 


23C4 


85E0 
O3FE 


85EO 


82CO 
82C2 
85E0O 
85E2 
cooo 
85E2 


OOSE 


23C4 


FFOO 
82CO 
72C2 
SFFF 
85E0 


PAGE 16 Routing Process 
;FNDENT: have useable entry, now expand as req’d 


;now we have: 

H ri = source for new line 

; r2= IMP number of usurpable slot 
: r4= usurpable slot in LTB 

: (sp)= Dest for new line 


TF nd > r4 ;expand, no free in source lines 
call rutsleep ; but take a rest first 
Ilda r3,r1 ;where to begin changeing indexes 
lda r7,#words ;use this to change NTB indexes 
lda r5,ntb+words(r1) :free slot will be here- save 
and r5,/ntbidx ;just index 
repeat ;move pointers to Itb first 
addm r7,ntb+words(r3)+ ;move this index 
until r3 = r2 ; including last one 
endrepeat 
repeat until rd = r5 ;when to stop moving 
repeat ;to limit strip times 
lda r7,1tb(-r4) ;line data 
sta r7,1tb+twords(r4) :move it 
Ida r7,1flag(r4) :flags 


eor r7,1flag+words(r4) 
and r7,/1flg 
eorm r7,1flagtwords(r4) 


lda r7,r4 ;check for rest time 
sub r7,r5 
until r7 .nbit. #3E :done 32 
endrepeat 
call rutsleep ;time for a break 
endrepeat 
endif 
pop r2 ;neighbor on line we’re entering 
Ilda r7,#dlinf_ H8(r2) initial value for LTB 
sta r7,1tb(r4) ;put it into it’s place 
subm r7,1)tbsum ;and fix cksum as well 
Ida r7,=-1?1flg 7no line usage yet 
andm r7,1lflag(r4) ii 1flgu 


endroutine fndent 


;now 

r4 = LTB index for free slot 
. ri = source 

: r2 = dest 
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-comnt | 


RTINC 

Update 
source 
change 


501C 


SO1E 
5020 
5024 
5028 
502A 
S5SO2E 


5030 
5034 
5038 
503A 
503C 
5040 
5042 
5044 


5046 
504A 
504C 
5050 
5054 
5056 
5O5A 
SOSE 
5060 
5064 


5068 
SOGA 
SOGE 


1076 


48F1 
3278 
4078 
9A04 
7E1IC 
9137 


4878 
7039 
4B37 
4A35 
737A 
4937 
9BO02 
6006 


4E78 
8106 
3008 
3008 
SOOF 
4878 
337C 
4851 
781C 
4078 


4815 
4878 
337C 


SFFF 
85E0 


PAGE 17 Routing Process 


the routing tree incrementally. Update is passed with 
IMP on line in R1, dest IMP on line in R2, the 
in the line distance in R3, new distance in RS 


routine rtinc, arg ri-r3/r5, uses ri-rs 


lda r7,=1 ;count a call to RTINC 
addm r7,rtical . 
call findbak ;get father of dest 
if fail } byte ri <> 1tb+Itbnay(r4) ;UNreachable ‘or 


ithis line not in tree 
Ida r7,=pdst :mask for distance 
Ida r3,pdist(ri1) :get dist to dest 


and r3,r7 ;ipdst Iflg ;chuck flags 
add r3,r5 ;dist via this line 
and r7,pdist(r2) :ipdst lflg 
sub r3,r7 ;compare to current dist 
ifnot minus ;no better, so done 
return ;(or if dead line) 
endif 
if r7 = =pdinf ;wasn’t reachable before 
set ppflag jmay need post-pass 
set dtflag 
else 
lda r7,=-171flg 
andm r7,1flag(r4) ::1lflgu ;this line out of tree 
Ilda r5,r1 ;save Ri 
Idab r1,1tb+Itbnay(r4) ;old father 
call findnay ifind the old fwd line 
; if fail ; topology error 
: fail return 
: endif 
Ilda ri,rs ;restore RI 
lda r7,=#-1?1flg 
andm r7,)flag(r4) ::1flgu ;this line now free 
endif 


;more RTINC over leaf 
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5072 


5076 
SO7A 
5O7E 
5080 
5082 
5084 


5088 
SOBA 
508C 
50390 
5094 


5098 


509C 


50A0 


50A4 


4078 


4878 
347C 
4852 
4821 
4815 
4078 


4812 
4825 
4878 
347C 
4078 


4078 


4078 


4078 


s0DO 


5330 


8000 
85E0O 


5330 


Ccooo 
85E0 
5S37E 


23C4 


50A6 


51E2 


PAGE 18 
;RTINC continued 


call findnay 
S-4F Pat} 
A fail return 
; endif 
lda r7,=lFflof 
iorm r7,1flag(r4) 
lda r5,r2 
lda r2,ri 
lda ri,r5 
call findnay 
: tf fat 
3 fail return 
7 endif 
Ida ri,r2 
Ida’ r2..r5 
Ilda r7,=1flgb 
iorm r7,1flaa(r4) 
call copyrut 
St fast 
; fail return 
; endif 
call rutsleep 
endif 
call retree 
;if success 
call search 
; if success 
H return 
; endif 
;endif 
;fail return 


endroutine rtinc 
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now find new fwd line 
;some failure 


sand mark it 

;Save R2 

;and swap with R1 
;now for back line 
snot there??? 


:restore R1. R2 


;mark back line 
;and propagate route info 


;rest time 
;compute subtree to check 
;process to-do list 


;all complete 


;some topology failure 
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.comnt | 
RETREE 
Routine to scan the subtree of a node, update distances to all nodes 
and put neighbors not in the subtree on the scan list. 
R2 is the subtree root node, R3 is the change in distance., 


in the subtree, 


SOAG 


5SOA8 
SOAA 
SOAC 
50BO 
50B4 


50B8 
SOBC 


SOBE 
50C2 
50c4 
50C8 
50OCC 
SOCE 
50D2 
50D6 
50D8 
SODC 
5ODE 


5OE2 
SOEG 


SOE8 
SOEC 


1076 


4812 
48F4 
3278 
4878 
4848 


SEAA 
FEFF 
OOFE 


86E0O 


3FFF 


72BA 
87DC 


87DC 
3FFF 


FFF 


53D0 


87DC 


SE86 
5E87 
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PAGE 19 Routing Process 


routine retree, arg r2-r3, 


lda ri.r2 

jlda r7,=1 

addm r7,retcal 

Ilda r7,=-1?<Istost_ H8> 
Ilda r4,=nimptwords 
repeat 


andm r7,1st+noimpo(-r4) 


until loop 
endrepeat 
if r3 = =pdinf 


set ppflag 

iorm r3,pdist(ri) 
else 

lda r7,pdist(ri1) 
and r7,#pdst 

add r7,r3 

if r7 >= dpdinft 


call spferr 
: fail return 
endif 
addm r3,pdist(r1) 
endif 
lda r7,=0 
stab r7,head 
stab r7,scn 


;more RETREE over leaf 


ri-r5 

:R1 is more convenient 
;count a call to us 
7(do this at top??) 


;clear on-subtree flags 


ynot reachable this path 


;flag to run post-pass 
;new path distance 


:;too big 77? 


;SPF must be messed up)} 


;just update it 


sempty the list 
;empty the scan list 
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SOFO 
SOF4 
5SOF8 
SOFA 
SOFE 
5102 
5106 
5108 
510C 
510E 
5110 
5114 
5116 
5118 
511A 
Si1E 
5122 
5126 
512A 


5S12E 
5132 
5134 
5136 
5138 
513C 
5140 
5144 
5148 
514A 


5i4E 
5152 
5156 
S15A 
515c 
5160 
5162 
5166 
516A 
S16E 
5172 


86DF 
5SE88 


86DE 
O3FE 
85E0 


85DE 


85E0 


82C1 
SE87 
86DF 
5E87 
S37E 


3FFF 


87DC 
3FFF 
82C0 
SFFF 


53D0 


87DC 
3FFF 
87DC 


5SE87 


23C4 
86DF 
5E87 
SE88 
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;more RETREE 


repeat 
stab r7,Ist+Istist(r1) 
stab r1,subtre 
Ilda r7,=I1stost 
iorbm r7,Ist(r1) 
lda r5,=ntbid» 
Ida r4,ntb+words(r1) 
and r4,r5 
and r5,ntb(r1) 
repeat until r4 = r5 
lda r7,1flag(-r4) 
next ifnot minus 
si! r7.1 
next if minus vi lflof 
Idab r2,1tb+1tbnay(r4) 
Tdab r7,scn 
stab r7,1st+lstist(r2) 
stab r2,scn 
call copyrut 
: if fail 
H fail return 
‘ endif 
if r3 = 


ee TRilg 


=pdinf 


lda 
else 
lda r7,pdist(r1) 

and r7,=pdst 

addb r7,1tb+1tbdst(r4) 
if r7 >= #pdinf 


rT rs 


call spferr 
; fail return 
endif 
endif 
eor r7,pdist(r2) 
and r7,=pdst 
eorm r7,pdist(r2) 
endrepeat 
ldab ri,scn 
until zero 
call rutsleep 
ldab r7,1st+istist(r1) 
stab r7,scn 
Idab r7,subtre 
endrepeat 


:more RETREE over leaf 
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;put root onto subtree first 


pput this node on subtree 

;mask for index 

;end of this node’s lines 

;just index 

;beg. of this node’s lines 


i;this line free 


;use is forward 
;scan neighbor 


;correct its route (?) 
; topology bad 
;already unreachable? 
;then so is dest 


;correct its path dist 


;overflow field? 


;must be a bug 


yany to scan? 


;take a break 
; take scan top 


;and put on subtree 


uribus IMP 1301 
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5174 7828 
5178 9A1D 
517A 787A 
S17E 3878 
5182 4858 
5186 704A 
518A 4B45 
518C 735A 


5190 4E45 
5192 910D 
5194 507C 
5198 QSBFC 
519A 781C 
51S9E SAFS 
51A0 7879 
51A4 S9SF6 
51A6 4078 


S1AA SOF3 
Si1AC 4078 
51BO SOE2 


51B2 6006 


1 


5E88 
86DF 
5E88 
O3FE 
85E0O 


85DE 


85E0 
82C1 
86DE 


51B4 


23C4 
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;RETREE continued 


repeat 
ldab r2,subtre 
until zero 
ldab r7,Jsttistist(r2) 
stab r7,subtre 
lda r5,=ntbidx 
Ilda r4,ntb+twords(r2) 
and r4,r5 
and r5,ntb(r2) 
repeat 
until r4 = r5 


Ida r7,1flag(-r4) 
next if minus 


pi )lfigu 


ldab r1,1tb+1tbnay(r4) 


next if zero 
ldab r7,1st(ri) 
next if odd ;:lstost 
call dorouter 
é if fail 
: fail return 
S endif 
endrepeat 
call rutsleep 
endrepeat 


endroutine retree 


10:57:29 PAGE 202 


snow look through subtree 
;it’s empty 
;pop next 


;for all neighbors 


;status of this line 
:fwd or back 
sneighbor here 
:ignore usurpables 
;already done? 

syes 


;rest now 
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-comnt | 

DOROUTER 

Subroutine to call ROUTER on behalf of RETREE, 

for a line that is not in the routing tree already. 

Called with Ri/line dest, R2/line source, R3/change in delay 
R4/line pointing out of subtree (R2 -> Ri) 

Computes proper line (forward or back) to use, 

and calls ROUTER on it. 


51B4 1076 routine dorouter,arg ri-r3,local r4,uses ri 
51B6 1046 
51B8 4EBO if r3 > =O ;line got worse 
51BA 8C04 
51BC 4078 5330 call findnay ;get line into subtree 
; if fail ; topology bad 
; fail return 
: endif 
51CO SOOE else ;line got better 
51C2 7079 87DC lda r7,pdist(r1) 
51C6 701A 87DC Ida ri,pdist(r2) ;current dist this node 
51CA 4B18 3FFF and r1,=pdst 
SiCE 4878 3FFF and r7,=pdst ;and dist via subtree 
51D2 4E71 if r7 <= ri ;got no better route 
51D4 9CO3 
51D6 6046 return 7S0 we’re done 
51D8 6006 
a endif 
51DA 4812 Ida ri,r2 ; line source 
endif 
S1DC 4078 524A call router ;R4 has line already 
; if fail ; topology bad 
: fail return 
; endif 


51EO SOFB endroutine dorouter 
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SEARCH 


Routine to process the to-do list. List is already set up in HEAD. 


Mungs R1-4. Calls ROUTER as needed. 


51E2 1076 routine search, uses ri-r4 
repeat 

51E4 7828 SE86 ldab r2,head 

51E8 9SA30 until zero 

SiEA 3828 72BC stab r2,dtflag 

S1EE 787A 86DF Idab r7,1st+istist(r2) 


5i1F2 3878 SE86 stab r7,head 
S1F6 4878 FFFD lda r7,=-1?1stol 
51FA 3B7A 86DE andbm r7,1st(r2) 
5S1FE 4078 5352 call findbak 


5202 SAOF if success 
5204 781C 82C1 ldab ri,1tb+] tbnay(r4) 
5208 4078 5330 call findnay 

; if fail 

‘ fail return 

; endif 
520C 707C 85EO Ida r7,1Flag(r4) 
5210 4B78 3FFF and r7.,4#-1?1flg 
5214 4C78 8000 ior r7,#1lflaf 
5218 307C 85EO sta r7,1flag(r4) 
521C 4078 537E call copyrut 

; if fail 

: fail return 

: endif 

endif 

5220 4812 lda r1,r2 
5222 4828 O3FE lda r2,=ntbidx 
5226 7049 85EO Ida r4,ntb+words(r1) 
522A 4B42 and r4,r2 
522C 7329 85DE and r2,ntb(rt) 
5230 4E42 repeat until r4 = r2 
5232 9108 
5234 SO7C 85EO Ilda r7,1lflag(-r4) 
5238 A2F1 3 I oat pe | 
523A SBFB next if minus ii )flgb 
523C 4078 524A call router 


: next ifnot fail 
. fail return 


5240 SOF8 endrepeat 
5242 4078 23C4 call rutsleep 
5246 SOCF endrepeat 


5248 6006 endroutine search 


:for all list items 


;empty list 
7* tree may change now * 


;dequeue one 

;get father node, if any 
;there is one . 
;get its dest IMP 


;now get forward line 
;bad topolocy 


;add this line to tree 
:as forward line 

;dst gets sre’s route 
;some failure 


:; looking at son now 


;now do son’s neighbors 


;this line’s use? 
;it’s a back-link 


;no failure 


;whew} let’s rest 
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ROUTER 

Subroutine to (re)process a particular node. If things got better for 
that node, remove it from the tree and add it to the process list. 
Remove duplicates on that list, if any. Expects R4 to have the path 
and R1 the node in question. 


524A 1076 routine router, arg ri/r4, local ri-r2, local r4-r5 
524C 1016 
524E 1026 
5250 1046 
5252 1056 
5254 4821 Ida r2,ri1 ;we want different regs 
5256 787C 82CO_ Idab r7,1tb+ltbdst(r4) ;delay this line 
525A 4E78 OOFF if r7 <> =dlinf ;it’s alive 
525E 9164 
5260 701A 87DC lda ri,pdist(r2) ypath dist to src 
5264 4818 3FFF and r1,=pdst 
5268 4E18 3FFF if ri <> =pdinf ;we have a path here 
526C 915D 
526E 4A71 add r7,ri ;dist via this line 
5270 4€78 3FFF if r7 > =pdinf :more than infinite . 
5274 8CO3 : 
5276 4078 53D0 call spferr ;how can this happen? 

: fail return 

endif 

527A 781C 82C1 ldab ri,1ltb+ltbnay(r4) ;dst node 
527E 7059 87DC Ilda r5,pdist(r1) ;its present distance 
5282 4B58 3FFF and rS,=pdst 
5286 4E75 1F FT <2'P5 ;new path is better 
5288 824D 
528A 7579 870C eor r7,pdist(r1) ;store new distance 
528E 4878 3FFF and r7,=pdst 
5292 3579 87DC eorm r7,pdist(r1) 
5296 4078 5330 call findnay ;get back line 

: if fail 

: fail return 

; endif 


;more ROUTER over leaf 


fT — 

Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 206 
ROUTE .PLR; 1 PAGE 25 Routing Process 

;ROUTER continued 
529A 4854 Ida r5,r4 ;and remember for later 
529C 4821 Ilda r2,r1 ;get present back-1ink 
529E 4078 5352 call findbak 
52A2 SAOE if success 
52A4 4878 3FFF lda r7,=-1?1flg ;take this line out of tree 
52A8 337C 85E0O andm r7,1flag(r4) :71flgu 
52AC 781C 82C1 Idab ri,ltb+Itbnay(r4) ;and find forward line 
52B0 4078 5330 call findnay 

‘ if fail tbad topology 

5 fail return 

’ endif 
52B4 4812 Ilda ri,r2 :(restore R1 for later) 
52B6 4878 3FFF lda r7,=-1?1flg ;and mark it unused 
52BA 337C 85EO andm r7,1flag(r4) 77: 1Flgu 

endif 
52BE 4828 D7A7 lda r2,=head-<Ist+IstIst> ;offset if empty list 
52C2 1056 save r5 ;remember back link 
52C4 7059 87DC Ida r5,pdist(r1) P 
52C8 4B58 3FFF and r5S,=pdst ;dist to this one 
52CC 7878 SE86 ldab r7,head 
52D0 SAOB ifnot zero rany in list 
repeat 

52D2 7O4F 87DC lda r4,pdist(r7) ;check clown list 
52D6 4B48 3FFF and r4,=pdst 
S2DA 4E54 until rS < r4 :insert in order 
52DC 9205 
52DE 4827 Ilda r2,r7 ;chain down one 
52EO 787F 86DF ldab r7,Ist+Istist(r7) 
52E4 8AF7 until zero 


endrepeat 
@ endif 


;more ROUTER over leaf 
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;ROUTER continued 


52E6 7859 86DF Ildab r5,1st+Istist(r1) ;remember link for later 
52EA 3879 86DF stab r7,lst+Istist(ri) 
52EE 381A 86DF stab ri,Iist+Istist(r2) :;ihead ;insert this node in list 
52F2 7829 86DE Idab r2,1st(r1) :its flags 
52F6 4FA2 if r2 .bit. =Istol ;this node on list already 
52F8 SAOD 
S2FA 4871 lda r7.ri . 
S2FC 7E1F 86DF repeat until byte ri = Ist+Istist(r7) ;find other 
5300 9107 
5302 787F 86DF ldab r7,1st+tIlstist(r7) ;occurence of it 
5306 8AFB next ifnot zero ;chaining to a good one 
5308 4078 53D0 call spferr ;some SPF trouble 

; restore r4 ;fix up stack 

‘ fail return 
530C SOF8 endrepeat 
530E 385F 86DF stab r5,lst+Istist(r7) ;restore old list ptr 

endif 
5312 4CA2 ior r2,=Istol 
5314 3829 86DE stab r2,]st(ri) ;this node on list now 
5318 6046 restore r4 ;Fix up its back link 
531A 4878 COOO lda r7,=1lf1lgb 
531E 347C 85EO jiorm vr7,1flag(r4) ;;1flg ;type of use 
endif 
5322 4078 23C4 call rutsleep ;time for a rest 
endif 

endif 
5326 6056 endroutine router 
5328 6046 
532A 6026 
532C 6016 


532E 6006 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 208 
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PAGE 27 Routing Process 


; FINDNAY 

;Find line from node in R1 to node in R2 
;Returns index for LTB, LFLAG in R4 
;Call SPFERR if can’t find the line 


5330 1076 routine findnay, arg ri-r2, result r4 
5332 4878 O3FE Ilda r7,=ntbidx 
5336 7049 85EO Ida r4,ntb+words(r1) ;for all node 1’s lines 
533A 4B47 and r4,r7 
533C 7379 85DE and r7,ntb(rt) 
repeat 
5340 4E47 if r4 <= r7 ;node 2 not there} 
5342 9CO3 
5344 4078 53D0 call spferr ;stop SPF}} ° 
q fail return ;and tell our caller 
endif 
5348 49C2 sub r4,=words :next neighbor 
534A 7E2C 82C1 until byte r2 = 1tb+)ltbnay(r4) :got node 2 
534E 81F9 
endrepeat 
5350 6006 endroutine findnay 
7; FINDBAK 
;Find the back link from this node, if any 
;Returns line table index in R4, arg node is in R2 
7Fail if no back link : 
5352 1076 routine findbak, arg r2, result r4, local rf 
5354 1016 
5356 4878 O3SFE Ilda r7,=ntbidx 
535A 704A 85E0 Ilda r4,ntb+twords(r2) :for all lines 
535E 4B47 and r4,r7 
5360 737A 85DE and r7,ntb(r2) 
repeat 
5364 4547 if r4 <= r7 ;no back link 
5366 9CO5 
5368 6016 fail return 
536A 6076 
536C 4FFO 
536E 4007 
endif 
5370 49C2 sub r4,=words ;next Tink 
5372 701C 85EO Ida ri.lflag(r4) ;its use 
5376 A291 sll ri, 
5378 8BF6 until minus t:1flgb ;back link we want 
endrepeat 
537A 6016 endroutine f indbak 


537C 6006 
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72FC 


72FC 


B2c6 


72FC 
72FC 
72FC 
72C4 
B2c6 


PAGE 28 Routing Process 


; COPYRUT 

;Copy route of node in Ri to node in R2 
;Handles special case that Ri is us. 
;Call SPFERR if can’t find our neighbor 


routine copyrut.arg ri/r2.local r2 


Ida r3,spfrut(r1) ;copy father’s route 
and r3,=routef 
if zero :I’‘m the source 
Ilda r3,=0 ;really wants modem number 
srl r2.4 ;un-double IMP 
repeat 
Ilda r7,m2pbIk(r3)+ 
until nminus & byte r2 = Inei(r7) ;line to this node 
next if r3 < =nmd*words ;check more of table 
call spferr ;trouble: stop system 
: fail return 
endrepeat 
srl ors, ;get actual modem 
sll r2,1 
endif 


eor r3,spfrut(r2) 

and r3,=routef 

ifnot zero ;route chanding 
lock spfrtl 


eor r3,spfrut(r2) ;copy src route to dst 
sub r3,spfrut(r2) 
addm r3.,spfrut(r2) 


subm r3,spfsuim sand adjust checksum 
unlock spfrtl 
endif 


endroutine copyrut 
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;SPFERR 
;An error in the SPF database was encountered. 
;Never returns (goes to WS or RELOAD) 


;routine spferr 


spferr: 
53D0 1076 push r7 :save our caller 
53D2 E500 Trap 2400,<:SPF error forced restart - page 208> 
5304 4078 23C4 call rutsleep ;get everyone here 
53D8 6046 pop r4 ;get back our caller 
53DA 3008 B2C8& unlock rutlok 
53DE 4878 0044 set ®pid = #rutpi :get everybody to do this 
53E2 30F8 OOAC . 
53E6 3048 6518 set nspe = r4 :remember who told us to crash 
53EA 7078 62E2 if mine = spfcrash ;should I dump? 
53EE 7678 4C6C 
53F2 8103 
53F4 4008 OAO8 jmp ws 

endif 

53F8 4008 OAO8 jmp ws ;just restart 

;endroutine spferr 
.comnt | 
RTINIT 


Initialize the shortest-path tree. Sets all path distances to 
infinite, and empties the tree, clears all topology info. 
R5 enters with my IMP number ' 2. 


S3FC 1076 routine rtinit, arg r5, uses ri-r3 
53FE 4828 OOFE Ida r2,=nimp*words show many IMPs 
5402 48FO Ilda r7,=0 :For initialization 
5404 4818 3FFF lda ri,=pdinf ;to make distance infinite 
5408 4838 8000 Ilda r3,=spfdecl ;and nodes unreachable 
repeat : 
540C 101A 87DE sta ri,pdist+noimpo(-r2) ::1flqg ;everyone’s unreachable 
5410 303A 72FE sta r3,spfrutt+noimpo(r2) ;no route 


5414 307A 86EO sta r7.IsttnoimpO(r2) ;;1flg ino lists 
5418 307A 85E0O sta r7,ntb+noimpo(r2) ;;1flg sno lines at first 


541C 88F8 until loop ;for all IMPs 

endrepeat 
541E 3078 86DE sta r7,ntbendi :;1flg :clear extra NTB entry 
5422 307D 87DC_ sta r7,pdist(r5) ::1flg sset root distance to O 
5426 307D 72FC sta r7,spfrut(rs) sand mark us reachable 
542A 3078 72C2 sta r7,1tbsum sempty table sum is’ O 
542E 48FO set spfsum = #-<nimp-1>*spfded ;initial SPFRUT checksum 


5430 3078 72C4 


5434 6006 endroutine rtinit 
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; RUPCKSUM 

;Checksum routing data 3 
;Validates checksums on important routing databases: 
; LTB, since this data is what others send us 

; SPFRUT, since routing decisions are based upon it 


5436 1076 routine rupcksum,uses r3-r5 
5438 4858 72FE set r5S = #spfrut+noimpo ;where to start out 
S43C 48B0 clear r3 yinitial sum 
543E 7078 B2C6 lock spfrtl ;shut off modifications 
5442 SAFE 
0001 .rept nimp/ D72 
call subchn-< D72*words> ;do a 72-IMP chunk 

5444 4078 17F8 .endr 
5448 4078 181A call subchn-<<nimp-< 072*<nimp/ D72>>>*words> 
544C 7078 72C4 set r7 = spfsum :sum to compare 
5450 3008 B2C6 unlock spfrtl ;done locked stuff 
5454 4E37 if r3 <> r7 ;checksum broken?? 
5456 9103 
5458 4078 53D0 call spferr ;oops - restart 

endif 
545C 4078 23C4 call rutsleep ; whew} 
5460 48CO clear r3,r4 ;init for another chksum 
5462 4834 
5464 7058 86DE lda r5,ntbendi show long ntb is 
5468 4B58 O3FE and r5,=ntbidx ;don’t want all these bits 
546C 4945 sub r4,r5 ;negatize it 
546E 4858 82C0O set r5 = #1tb ;checksumming LTB 
5472 4E48 FF70 repeat until r4 >= #- D72*words 
5476 8208 
5478 4078 17F8 call subchn-< D72*words> ;do another 72 
547C 4A48 OOSO add r4,= D72*words ;how much table we did this time 
5480 4078 23C4 call rutsleep ;then rest 
5484 SOF7 endrepeat 
5486 407C 1888 call subchn(r4) ;do the last bit 
548A 7078 72C2 set r7 = Itbsum ; this should be sum 
548E 4E37 if r3 <> r7 ; oops} 
5490 9103 
5492 4078 53D0 call spferr 

endif 


5496 6006 endroutine rupcksum 
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RUPENQ - queue routing update 

Assumes m2 set for chain pointers. 

Queue on rupgq, poke routing if rup4us set. 

Set fldior so timeout knows who to poke. 

Set retransmit timers on all modems for which we are enqueuing 


ri - (doubled) IMP number of source 
r2 - chain pointer 

r3 - mask bits to be put in chan 

r4 - source modem (if any) 


5498 1076 routine RUPENQ, arg ri-r4/m2, local r5 

549A 1056 

549C 303A 0350 sta r3,chan-chain(r2) ;set mask bits 

54A0 8A02 if zero 

54A2 ESOA Trap 2412,<:Queuing packet for no one ~- page 210> 
endif P 

54A4 48F1 Ilda r7,=1 

54AG 3072 sta r7,(r2) iset end of queue indicator 

54A8 7078 A4A4 lock lockro :rupq protected by lockro 

54AC SAFE 

54AE 30A8 72BO sta r2,®erupq ;queue on rupq 

54B2 3028 72B0 sta r2,erupq 

54B6 4F38 8000 if r3 .bit. =rup4us ;are we to process it? 

54BA S9A3C 

54BC 7078 SEB2 lda r7,rupqet number of packets 4us on rupq 

54CO 7678 SE94 if r7 > rqimax :is this the max so far? 

54C4 8C1C 

54C6 3078 SES4 sta r7,rqimax :yes, record it 

54CA 1016 SAVE R1-R7 

54CC 1026 

S4CE 1036 

54D0 1046 

54D2 1056 

5404 1066 

54D6 1076 

5408 7018 SEB2 LDA R1,RUPQCT ;CURRENT QUEUE 

54DC 7028 S5E98 LDA R2,RTRCNT ;RETRANS PER LINE 

S4EO 7038 SESG LDA R3,RUPCNT ;# UPDS GENERATED 

54E4 7048 5SE94 LDA R4,ROLMAX :MAX QUEUE REACHED 

54E8 7058 SESE LDA R5.RPKREC ;UPDS PROCESSED 

54EC E557 Trap 2527,<:Queue count check - page 210> 

54EE 6076 RESTORE R1-R7 

54FO 6066 

54F2 6056 

54F4 6046 

54F6 6036 

54F8 6026 


BAEA E4N1G 
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54FC 
5500 
5502 
5506 
550A 
SSOE 
5512 
5514 
5516 


551A 
551C 
5520 
5522 


3278 
48D1 
3258 
7258 
3058 
4E58 
9204 
E555 
4048 


1016 
4078 
7871 
4BFF 


5E92 
SE8E 
SEB2 


5EB2 
0016 


OAIC 


1512 


addm r7,rqlisum ;sum queue lengths encountered 
lda r5,=1 ;use r5 
addm r5,rpkrec ;count update rec’d 
add r5,rupqet y increase queue count 
sta r5,rupqcet ;crash into loader if RUPQ >= 
if r5S >= # D22 ;too large })} 
Trap 2525,<;Queue count too high - page 210> 
jsb r4,wst skill it all, quickly 
endif ‘ 
push ri :need this again later 
call unpack ;need to look inside 
ldab r7.(r1) ::neth 


and r7,=rupnn_- H8 ;number of lines in update 
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5524 3278 5SESO addm r7,rinrec 
5528 6016 pop ri 
552A 7078 OOD2 setmap m2,mapv2 
552E 3078 FCO4 
endif 
5532 4821 Ida r2,ri 
5534 7018 72AC Ida ri,fldior 
5538 3438 72AC jiorm r3,fldior 
553C 3008 A4A4 unlock lockro 


; (OVER) 


10:57:23 PAGE 213 


;count number of entries received 
srestore doubled IMP 
;switch back to v2 page 


;free ri for use hene 
;old ones doing already 
:add new ones yet to do 
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;Now poke all who matter 


5540 4833 Ida r3,r3 ;bits we just set " 
5542 8BO7 if minus 77 rPup4us 
5544 4878 0044 set @pid = =rutpi ;poke routing 
5548 30F8 OOAC 
554C 4D38 8000 eor r3,=rupdus ;and clear its bit 
endif 
5550 9A18 ifnot zero 
5552 1046 push r4 ;source modem at stack top 
5554 7058 6324 Ilda r5,modems ;some modems to poke, too 
repeat 
5558 573D OEBE if r3 .bit. bittab(-r5) 
555C SAOF 
555E 704D 635E Ida r4,m2pb1k(r5) 7a modem to get 
5562 SBOC ifnot minus ;modem still good? 
5564 7646 if r4 <> (sp) ;not source modem either 
5566 9105 
5568 1026 save r2 
556A 4078 5958 call rton ;turn on this imp‘’s timer 
S56E 6026 restore r2 
endif 
5570 771D OEBG if ri .nbit. bittab(r5) 
5574 8A03 
5576 4078 14E8 call pokem ;set i2mpok and poke modem 
endif 
endif S 
endif 
557A 4EDO until rS = =0 
557C 81EE 
endrepeat 
S557E 6046 pop r4 ;restore source modem 
endif 
5580 6056 endroutine rupenq 


5582 6006 
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RUPDEQ - get a buffer from the queue of routing updates. 
Since these buffers are used by more than one process, 

a buffer is not actually dequeued. instead 

the address of its chain word is returned. 


r3 - bit for calling process. This bit must be on in chan 
word of buffer for it to be selected. 


Returns chain address in r2, buffer 


address in ri. (does unpack) 


5584 1076 Routine RUPDEQ, arg r3, result ri-r2, result m2, uses r5 
5586 7738 72AC if r3 .nbit. fldior :this caller on queue? 
558A 8A04 
558C 6076 fail return ;nope 
558E 4FFO 
5590 4007 
endif 
5592 7078 OOD2 setmap m2,mapv2 :get buffer vars 
5596 3078 FCO4 
SSSA 4858 72AE Ilda r5,=srupq ;scan the routing update queue 
559E 7078 A4A4 lock lockro ;must search queue locked 
5SA2 SAFE 
repeat 
55A4 7025 lda r2,(r5) ;chain to next buffer 
S55A6 8908 if odd 
55A8 4D38 FFFF eor r3,=-! 
55AC 3338 72AC andm r3,fildior ;clear caller's bit 
55BO 3008 A4A4 unlock lockro ‘ 
55B4 SOEC fail return ;nothing on queue for caller 
endif 
55B6 4078 2414 call rupwhc ;check for queue broken 
S5S5BA 8A02 if fail 
55BC SO0E8 fail return ;queue broken, return nothing 
endif 
55BE 773A 0350 until r3 .bit. chan-chain(r2) 
55C2 8A03 
55C4 4852 Ida r5,r2 
55C6 SOEF endrepeat 
55C8 3008 A4A4 unlock lockro 
55cCC 4078 1512 call unpack ;get buffer address 
55D0O 6006 endroutine rupdeq 
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.comnt 


RUPWHC - check ownership bits on rup queue 


PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 216 
PAGE 34 Routing Process 
page LCode 


fix queue if discovered to be broken 


r2 - current chain pointer 
r5 - previous chain pointer 


2414 


2416 
241A 
241E 
2420 
2422 
2424 
2426 
242A 
242E 
2430 
2432 


2434 


1076 


7O7A 
4F78 
BAOB 
E503 
48F 4 
3075 
3058 
3008 
6076 
4FFO 
4007 


6006 


O6AO 
0080 


7280 
A4A4 


Routine RUPWHC, arg r2, 


if where-chain(r2) 


-nbit. 


arg r5 


=swhrut 


Trap 2403,<;routing broken queue - page 214> 


Ilda r7,=1 

sta r7,(r5) 
sta r5,erupq 
unlock lockro 
fail return 


endif 


endroutine rupwhce 


;terminate queue at last good one 


;release routing out lock 


| — 
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0000 .if nz Gmaprt-smappk :need following from both pages 
page LCode 
.iff ;3nz Fmaprt-Fmappk 
FCOO 0400 page RutCode 
.ende 
.comnt | : 


RUPFLS - routing update flush routine 


Turn off this process’s bit and if no others on, do 
a real flush of the buffer. 
Switches to mapv2. 


r3 - bit for calling process. (not preserved) 
r2 - address of this buffer’s chain word 


55D2 1076 


55D4 7078 OOD2 
5508 3078 FCO4 
S5DC 7078 A4A4 
S5SEO SAFE 
55E2 707A OGAO 
55E6 4F78 0080 
SSEA 8A05 
SSEC E504 
SS5EE 3008 A4A4 
SSF2 6006 


SSF4 707A 0350 
SSF8 4D73 
SSFA 4F73 
SSFC SA03 
SSFE ESOS 
5600 4073 


5602 4833 
5604 8BO4 
5606 48B1 
5608 3138 SEB2 


Routine RUPFLS, arg r2-r3, uses r5, uses r3, result m2 


setmap m2,mapv2 switch to chain words 
lock lockro lock the update queue 
lda r7.where-chain(r2) ;check if owned by routing 


if r7 .nbit. =whrut 


Trap 2404,<;Buffer no longer owned by routing - page 215> 
unlock lockro 


return ;it was probably timed out 
endif 
Ida r7,chan-chain(r2) . ;get the process mask 
eor r7,r3 ;turn off caller’s bit 
14. 87) .DTrt:: KS ;was it of F? 
Trap 2405,<:Caller’s bit not on - page 215> 
eor r7,r3 :leave it off 
endif 
Ida r3,r3 ;buffer for SPF itself? 
if minus ::rup4us 
Ida r3,=1 ;decrement queue length count 
subm r3,rupqcet 
endif 


;OVER 
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560C 
5610 
5612 
5616 


5618 
S61A 
561C 
SG61E 
5622 


5624 
5628 
562A 


562C 
562E 
5630 
5632 
5634 
5636 
5638 
563A 


563E 
5642 


5644 


5648 


307A 
BAIA 
4858 
4832 


7025 
8905 
ESO6 
3008 
9O0E8 


4078 
8A02 
SOE4 


4E23 
9103 
4852 
SOF3 
7072 
3075 
8903 
3058 


4078 
0080 


3008 


S0D5 


0350 


T2AE 


A4A4 


2414 


72B0 


1332 


A4A4 


PAGE 36 Routing Process 
;more RUPFLS 


sta r7,chan-chain(r2) ;re-write mask word 


if zero 
Ida r5,=srupq ;this was last user 
Ida r3,r2 7;save buffer to match on 
repeat ;find it on update queue 
Ida r2,(rs) ;chain to next buffer 
if odd 


Trap 2406,<;Rupq buffer missing - page 216> 
unlock lockro 


return Et de ay ef 4 
endif 
call rupwhe :check if still on rupq 
if fail 
return ;queue has been broken 
endif 
until r2 = r3 
Ilda r5,r2 
endrepeat > 
Ida r7.(r2) :remove it from the chain 
sta r7,(r5) . 
if odd ;last one on the queue? 
sta r5,erupq :yes. update the end pointer 
endif 
call flush,whrut ;now do a real flush 
endif 


unlock lockro 


endroutine rupfls 
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FCOO 0400 


.comnt 
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PAGE 37 


PLURIBUS V2.9B 


Routing Process 


page RutCode 


RUPGEN - build a routing update 


Called by routing process 


if RUPSND set. 


25-Jun-87 


10:57:29 PAGE 219 


Uses average line delays calculated by delay package. 


564A 1076 


564C 48F8 
S64E 3878 
5652 7078 
5656 9A58 
5658 4078 
S565C 0088 
565E 8A07 
5660 48F1 
5662 3278 
5666 3008 
566A S04E 
566C 1026 
566E 48D0 
5670 4821 
5672 1016 
5674 7018 
5678 9A03 
567A 4818 


S67E 7038 


5682 504B 
5686 SBOF 
5688 787C 
S568C SAOC 
568E 7678 
5692 9109 
5694 A2F8 
5696 7C7C 
S69A 4C71 
S69C A7F8 
SG9E 207A 
56A2 4957 


56A4 4EBO 
SGAG 81EE 


72A9 
72A6 


13C6 


SEAE 
72B4 


651A 
OOF F 
6324 
635E 
0004 
62E2 


OO3B 


0008 


Routine RUPGEN 


setb thresh = 


if iniflg 


, uses ri-rS 


ethrini 


call freget.nrut+whrut 


if fail 
Ilda r7,=1 


addm r7,rpagnbf 


set rretry 
else 

save r2 

Ida r5,=0 

Ilda r2.r4 

save ri 


Ida ri,nsrutd 


ifnot zero 


lda ri,=dlinf 


endif 


Ida r3,mocems 


repeat 
lda r4,m 


2pb1k(-r3) 


ifnot minus 


ldab r 
if nze 


sll 
jorb 
ior 
rrl 
sta 
sub 
endif 
endif 
until r3 


endrepeat 


> (OVER) 


7, Inei(r4a) 
ro & r7 <> mine 


r7, H8 
r7.delbas(r4) 
RTs ridlinf 
r7, H8 
r7,seqh(r2)+ 
ok = fo f 

= =0 


:reset thresh when sending update 
;don’t send during init 


:try to get a buffer for update 


;count times we couldn’t get one 
;none, turn flag back on later 


:save the chain pointer 
:init the checksum register 
;copy the buffer pointer 
:save the buffer pointer 
;check nice-stop flag 


;report all lines dead 
; loop through all modem blocks 
raddress of a modem block 


:don’t report unused 
:or looped lines 


;:Ppupnei 

ti iPupcdel 

:set dead if nice-stopping 
;switch bytes 

;put in line entry 
yinclude in checksum 
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;RUPGEN continued 


56A8 6016 restore ri 
S6AA 4921 sub r2,r1 
S6GAC AGA ert 2.4 
5GAE 7038 62E2 lda r3,mine 
56B2 A2Bi sli 73.1 
56B4 7078 B2C6 lock spfrtl 
56B8 SAFE 
S56BA 707B 72FC lda r7,spfrut(r3) 
S6BE 4A78 0100 add r7,=spfsni 
56C2 757B 72FC eor r7,spfrut(r3) 
56C6 4878 3FOO and r7,=spfsno 
56CA 757B 72FC eor r7,spfrut(r3) 
56CE 4C78 0070 ior r7,=spfage 
56D2 4847 Ida r4,r7 
56D4 717B 72FC sub r7,spfrut(r3) 
56D8 3278 72FC addm r7,spfrut(r3) 
56DC 3178 72C4 subm r7,spfsum 
S6EO 3008 B2C6 unlock spfrtl 
S5GE4 4848 3FOO and r4,=spfsno 
56E8 AGBi srl r3,{ 
S6EA 4C34 ior r3,r4 
S6EC 3039 0006 sta r3,srch(r1) 
56FO 4953 sub r5,r3 
56F2 484A 0070 lda r4,4spfage(r2) 
S6F6 7038 72AA Ilda r3,rupmsk 
SGFA 6026 restore r2 
S6FC 48F1 lda r7,=1 
S6FE 3278 5SE96 addm r7,rupent 
5702 4078 5708 call rupblid 
endif 
endif 


5706 6006 endroutine rupgen 


25-Jun-87 10:57:29 
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;new serial 

;insert back 
;set max age 
;need this later 


;update table now 
;and its checksum 


PAGE 220 


;number of neighbor entries 


;doubled imp number 


; increment the serial number 


into spfrut 


;undouble the imp number 
:combine with the serial number 


; include in checksum 
;combine age and number of entries 
; this should be processed by all 


;count an update generated 
;share code with rtrgen 


> “—™ 
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RUPBLD - finish building an update packet and queue it 


mh = 
rZa = 
rs = 
r4 - 
rs = 


buffer address 

chain address 

mask for which processes should look at this update 

left byte of neth (in right byte of r4) age+number of neighbors 
checksum on update built so far 


1076 


4874 
A2C8 
3041 
4954 
4848 
3049 
4954 
4BFF 
4AF4 
4A57 
3059 
AQF 4 
49F2 
3079 
48CO 
7819 
A291 
7078 
3078 
4078 
4078 


6006 


A300 
0002 


0004 


o0os0 
0007 


ooD2 
FCO4 
5498 
23C4 


Routine RUPBLD, arg ri-r5, uses ri-r5 


lda r7.r4 ;save neth word 

sll r4, H8 ymove into left byte 
sta r4,(r1) :i7neth 

sub r5,r4 :include in checksum 


Ilda r4,=ruttyptcombit+ruptyp 
sta r4.typh(r1) 
sub r5,r4 


and r7,=rupnn_- H8 :get number of line entries 


add r7,=seqh_-1 ;add in words in header 

add r5,r7 ; include length in checksum 
sta r5,chkh(r1) ypacket now complete . 

sv) FIA snumber of bytes in packet 


sub r7,=hrdoff 
sta r7,bufe(r1) 


clear r4 shave RUPENQ set all timers 
ldab ri,srcht+i(ri) :get source IMP 

sll r1,1 ; doubled 

setmap m2,mapv2 

call rupenq :share code with m2i 

call rutsleep ;need a rest now 


endroutine rupbld 
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RTRTO - tick routing update retransmission timers 
If a timer expires, call rtrgen to build a retransmission. 
Called every 25ms by routing process. 


5748 1076 Routine RTRTO, uses ri-r5 
574A 7058 6324 Ida r5,modems ; loop through all modems 
repeat 
574E 504D 635E Ida r4,m2pbIik(-r5) ;modem block address 
5752 9B44 ifnot minus 
5754 787C 0002 if byte phflag(r4) .nbit. =inhrst 
5758 4FF2 
S75A 8A40 
;don’t tick line in reset 
575C 48A1 Ida r2,=1 
575E 7O7C 40B8 lock rtimri(r4) ;lock timers and clock 
5762 SAFE 
5764 392C OOBA submb r2,rtrelk(r4) :;decrement clock 
5768 8A35 if zero 
576A 787C OOBB Idab r7,rtrtic(r4) ;clock has fired 
576E 387C OOBA stab r7,rtrelk(r4) ;reset it 


; (OVER) 
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Routing Process 


; RTRTO continued 


5772 483C 0020 


5776 501B OOBC 
577A SA2A 
S77C 4821 
S77E AGA1 
5780 4C21 
5782 4B28 5555 
5786 4912 
5788 301B OOBC 
578C A691 
578E 741B OOBC 
5792 4D18 FFFF 
5796 4B12 
5798 SA1B 
579A 48A0 
579C 4811 


5S79E 8915 

S7AO 300C 40B8 
57A4 4078 23C4 
57A8 4078 57EO 


57AC SAO5 if success ;all’s well 
57AE 7O7C 40B8 lock rtimri(r4) :get lock again 
S7B2 SAFE ‘ 
57B4 900A else tg 
57B6 707C 40B8 lock rtimri(rd) ;get lock again 
S7BA SAFE : 
S7BC A2A2 sit "2,2 ;double timer index 
57BE 707A OEB6 lda r7,bittab(r2) ;get one. bit for this timer 
57C2 347B OOBC iorm r7,rtimrs(r3) ;turn timer back on 
57C6 AGA2 ert F222 ;and hope for next tick 
endif * 
endif 
57C8 4AA1 add r2,=1 ;count which timer,in this word 
57CA AG92 srl r1,2 :;0dd ;:shift next timer to right 
57CC 8AES until zero :stop when all timers done 
endrepeat 
endif 
endif 
S7CE 4E34 until r3 = r4 
57D0 8103 
endrepeat 
endif 
57D2 300C 40B8 unlock rtimrl(r4) ;unlock the timers 
57D6 4078 23C4 call rutsleep ;sleep between modems 
endif 

endif . 
S7DA 4EDO until r5 = =O 
57DC 81B9 

endrepeat 


Ida r3,=<<<nimp-1>_-3>+1>*words(r4) 


repeat 
Ida ri,rtimrs(-r3) 
ifnot zero 
Ilda r2,ri1 
srl r2,1 
Tor F204 
and r2,/ H5555 
sub ri,r2 
sta ri.rtimrs(r3) 
ert ‘et. 
ior ri,rtimrs(r3) 
eor r1,=-14 
and ri,r2 
ifnot zero 
Ilda r2,=0 
Ida ri,ri1 ;:odd 
repeat 
if odd 


unlock rtimr1(r4) 


call rtrgen 


57DE 6006 endroutine rtrto 


10:57:29 PAGE 223 


;get a word of timers 
:skip if all zero 
;copy timer word 

;two bits per timer 
;or them together 


;now ones for active timers 


;decrement active timers 
;update timers 
ynow find expired timers 


;ones for still active timers 


;ones for all off timers 


;remove ones that were off before 


yany new ones go off? 


:yes, generate retransmission(s) 


;loop for timer(s) that expired 
;release lock for now 
call rutsleep :sleep before retransmitting 
;generate a retransmission 


;address+1 of last timer 
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RTRGEN - generate a retransmission packet 

r2 - index into this rtimers word (group of 8 IMPs) 

r3 - index into rtimers 

r4 - modem block address 

m2 - mapv2 

Fail returns if unprocessed update on rupq for this imp 

or unable to get a buffer. 

Succeed returns if update queued or if it should be ignored. 

a Depends on r5 being saved last 

S7EO 1076 Routine RTRGEN, arg r2-r4/m2, local ri-r5 

57E2 1016 

57E4 1026 

S7EG 1036 

57E8 1046 

57EA 1056 

57EC 4934 sub r3,r4 > (IMP number-1)/8 (doubled) 
S7EE A2B2 sll r3,2 :(CIMP number-1)/8)*8 

57FO 4A3A 0001 add r3,=<noimpO/words>(r2) ;source IMP number (undoubled) 
57F4 781C OO1A dab ri,modem(r4) :which modem we are 

57F8 7019 OEBG Ida ri,bittab(ri) ;its bit 

S7FC 4C18 8000 ior ri,/rup4us sand the for us bit 

5800 4858 72AE Ida r5,=srupq ;check for unprocessed updates 
5804 7078 B2C6 lock spfrtl ; lock out m2i 

5808 SAFE 

580A 7078 A4A4_ lock lockro ;and routing output 

S580E SAFE 


; (OVER) 
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7025 
8904 
3008 
9026 


4078 
9A23 
TO7TA 
4F17 
SA1D 
1016 
4078 
7E39 
8112 
3008 
3008 
7078 
3078 
6016 
6056 
6046 
6036 
6026 
6016 
6076 
4FFO 
4007 


7078 
3078 
6016 


4852 
90D7 
A2B1 
702B 
3008 
704B 
714B 
4B48 
AGC1 
SA08 
4ECF 
9CO6 
4EBO 
9104 
4E38 
8CO8 
E507 
6056 
6046 
6036 


A4A4 


2414 


0350 


1512 
0007 


A4A4 
B2c6 
ooD2 
FCO4 


OOD2 
FCO4 


OOFE 


PAGE 43 Routing Process 


; RTRGEN continued 


repeat 
@ ida r2.(r5) 
if odd 
unlock lockro snothing on queue for this IMP 
break ;proceed to generate retrans 
endif 
call rupwhce ;check for queue broken 
until fail ;can’t contain another now 
Ida r7,chan-chain(r2) 
fF rt .BRe.. tT 7 if for us to take care of 
save ri ;save for later 
call unpack smust Took at this one 
if byte r3 = srehti(rt) ;from same imp? 
unlock lockro syes, wait until it’s processed 
unlock spfrtl 
setmap m2,mapv2 ‘ 
restore ri ;fix the stack 


fail return 


endif 
setmap m2,mapv2 


restore ri srestore for next iteration 
endif 
ida. rs, r2 
endrepeat 
s17 r3,1 ;double the imp number 
lda r2,spfrut(r3) :get age and serial number 
unlock spfrtl ;done with spfrut 
Ida r4,ntbtwords(r3) ;compute number of line entries 
sub r4,ntb(r3) 
and r4,=ntbidx 
sri r4,1 
if zero } r4 > =rupnn_- H8 } r3 = =O ) r3 > =nimp*twords 


Trap 2407,<:Retrans w/bad length or IMP - page 223> 
return ;leave timer off 
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(43A0)* 
si puse 
9009 868S 
9109 9685S 


7 —_ 
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; RTRGEN continued 
589A 4852 Ilda r5,r2 ;save spfrut entry 
589C 4B28 0070 and r2,=spfage ;check age 
58A0 9A41 if nzero ;don’t retransmit if age zero 
58A2 4C4A 0080 jor r4,=rupret_- H8(r2) ;combine retry.,age,number of lines 
58A6 4078 13C6 call freget,whrut+nrut ;all ok, try to get buffer 
58AA 0088 
58AC 8A05 if fail 
S8AE 48F 1 Ilda r7,=1 
58BO 3278 SEBO addm r7,rtrnbf ;count times couldn’t get a buffer 
58B4 90C9 fail return :leave timer on, try again in 25ms 
endif 
58B6 4875 lda r7,r5 ;copy spfrut entry 
58B8 48D0 Ilda r5,=0 :clear checksum register 
58BA 4B78 3FO0O and r7,=spfsno ;serial number 
58BE AGBi srl r3,1 ;undoubled imp number 
58CO 4C73 jor r7,r3 ;combine 
58C2 3079 0006 sta r7,srch(r1) 
58C6 4957 sub r5,r7 ; include in checksum 
58C8 A2Bi Sal F354 ;double imp number again 
58CA 1016 save ri-r2 
58CC 1026 
58CE 7078 OOD2 setmap m1i,mapv2 :get to routing tables 
58D2 3078 FCO2 
58D6 702B 65DE Ida r2,mi#ntb(r3) 
58DA 4878 O3FE Ilda r7,=ntbidx 
58DE 4B27 and r2,r7 :starting index for node’s lines 
58EO 737B 65E0 and r7,mi#ntb+words(r3) :first index for next node’s lines 
repeat ;loop through line entries 
58E4 683A 62CO ldab r3,m1i#1tb+1tbdst(r2)+ ;get distance this line 
58E8 4E38 OOFF if r3 = =dlinf ;dead or usurped line 
S8EC 8104 
S8EE 4AA1 add r2,=1 ;;1tbnay ;skip neighbor 
58FO 49C1 sub r4,=rupnni_-8 ;reduce line count this message 
S58F2 9008 else 
S58F4 A7B7 Pet. PI<7 imake room for neighbor 
S58F6 6C3A 62CO iorb r3,mi#1tb(r2)+ ;;1tbnay ;complete entry 
S58FA A7B1 rreior3,t ;position data correctly 
S8FC 2039 0008 sta r3,seqh(r1)+ :and store in buffer 
5900 4953 sub r5,r3 yadjusting checksun 
endif 
5902 4527 while r2 < r7 
5904 92FO 
endrepeat 
5306 7078 OODO setmap m1i,mapvar ;fix map | now 
590A 3078 FCO2 
59O0E 6026 restore ri-r2 
5910 6016 
5912 7036 lda r3,(sp) ;get original r5(modem number ) 
5914 48F1 lda r7,=1 
5916 327B SE98 addm r7,rtrent(r3) ;count retrans on this line 
591A 703B OEBS Ida r3,bittab(r3) ymask bit for this line 
S91E 4078 5708 call rupbid ;share code with rupgen 


endif 
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ROUTE .PLR; 1 PAGE 45 Routing Process 

FCOO 0400 page PkqCode ;called from modem code 

.comnt | 


Routines for turning retransmission timers on and off 


5924 1076 Routine RTSET. arg r2/r4, result r1/r3, uses r2 

5926 49A2 sub r2,=noimpo ;timers begin with IMP 1 
5928 4812 lda ri,r2 ;copy imp number (doubled) 
592A A693 srl ri,3 ><impnumber'/8>*words 

592C 4A14 add ri,r4 sadd into modem block index 
S92E 4BAE and r2,= HE : impnumber modulo 8(doubled) 
5930 48B3 lda r3,=3 ;compute mask for this IMP 
5932 A232 sil r3,.h2 ;into position 

5934 707C 40B8 lock rtimrl(r4) 

5938 SAFE 

593A GOOG endroutine rtset 

593C 1076 Routine RTOFF, arg r2/r4.,local ri,local r3,uses r2 

593E 1016 

5940 1036 

5942 4078 5924 call rtset ;get index and mask for timer 
5946 4D38 FFFF eor r3,=-1 ;complement mask 

594A 3339 OOBC andm r3,rtimrs(r1) :turn off timer 

594E 300C 40B8 unlock rtimrl(r4) 

5952 6036 endroutine rtoff 

5954 6016 . 

5956 6006 

5958 1076 Routine RTON. arg r2/r4,local ri,local r3,uses r2 

595A 1016 

595C 1036 

S95E 4078 5924 call rtset ;get index and mask for timer 
5962 3439 OOBC iorm r3.rtimrs(r1) :turn on two bit timer 

5966 300C 40B8 unlock rtimrl(r4) ’ 

596A 6036 endroutine rton 

596C 6016 


S9GE 6006 
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-comnt 

TICAGE --tick ages in spf database. 

Called every slow tick. 

Does a fraction of the IMPs each slow tick so that all IMPs are 
ticked once during the tick interval. 


FCOO 0200 page DDTCode 
o00c spftic= D8000/ DG4O 78 seconds in slow ticks 
4F1A 1076 Routine TICAGE, uses ri-r4 
4FiC 7818 72A8 Idab ri,ticimp ;get last IMP ticked, 
4F20 8A03 if zero ;time to reset? 
4F22 4818 OOFE lda ri.=nimp*words :yes, start at highest IMP 
endif 
4F26 48AB lda r2,=<nimp-1/spftic>+1 ;number of IMPs to do per slow tick 
4F28 4838 0070 Ilda r3,=spfage ;mask for age field 
4F2C 4848 OO10 Ilda r4,=spfagi ;one in age field 
4F30 7078 B2C6 lock spfrtl 
4F34 SAFE 
repeat 
4F36 5739 72FE if r3 .bit. spfrut+tnoimpO(-ri);only tick non-zero ages 
4F3A 9AO5 
4F3C 3149 72FE subm r4.spfrut+noimpO(r1) ;tick age 
4F40 3248 72C4 addm r4,spfsum ;and checksum 
endif 7 
4F44 9803 until loop ;can exit last fraction early 
4F46 49A1 sub r2,=1 ;count IMPs done this loop 
4F48 8AF7 until zero ;exit when fraction done 
endrepeat 
4F4A 3008 B2CG’ unlock spfrtl 
4F4E 3818 72A8 stab ri,ticimp ;save for next time 
4F52 6006 endroutine ticaqe 
FCOO 0200 dstolist ticage ;put this on ddt timeout list 
4EDA 4F1A 
4EDC 1CBC 
4EDE 0000 


FCOO 0400 page RutCode 


oe — 
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ROUTE .PLR;1 PAGE 47 Routing Process 
.comnt | 


RUPQCK - verify rupq count of packets with tsk4us bit on 
Called every slow timeout 


5970 1076 


5972 4890 
5974 7048 
5978 4858 
597C 7078 
5980 SAFE 


5982 7025 
5984 890B 
5986 7038 
598A 4E13 
598C 9104 
598E ESO8 
5990 3018 


5994 3008 
5998 6006 


599A 4078 
S99E 9A12 
59A0 774A 
59A4 8AOB 
59A6 7072 
59A8 3075 
SSAA 8903 
SSAC 3058 


59BO E509 
59B2 4078 
59B6 0080 
59B8 9OES 


59BA 8BO2 
59BC 4A91 


SSBE 4852 
59CO S9O0E1 
59C2 90D8 
59C4 SOEA 


0008 


T2AA 
T2AE 
A4A4 


5SEB2 


5EB2 


A4A4 


2414 


0350 


72BO 


1332 


Routine RUPQCK, arg m2, 


repeat 
lda r1,=0 
lda r4,rupmsk 
Ida r5,=srupq 
lock lockro 


repeat 
Ida r2,(r5) 
if odd 
Ilda r3,rupqet 
tf 1. <> 3 


uses ri-rs 


:init queue counter 
:mask of live lines 


;lock the routing queue 


next entry on queue 


;end of queue, get old count 
:do they differ? 


Trap 2410,<;Rupqcet wrong - page 227> 


sta ri,rupqcet 
endif 
unlock lockro 
return 
endif 
call rupwhe 
until fail 


;correct it 


; done 


;check for queue broken 
;start all over again if so 


if r4 .nbit. chan-chain(r2) ;no more to do? 


lda r7,(r2) 
sta r7.(r5) 
if add 

sta rS,erupq 
endif 


;dequeue this one 


new end of queue 


Trap 2411,<;Recovered unused buffer - page 227> 


call flush,whrut 


next 
endif 
if minus 
add ri.=1 
endif 
Ida r5,r2 
endrepeat 
endrepeat 


endroutine RUPQCK 


& 
-radix O10 


;free it 


p;Pup4us 
;count one for our SPF 


:chain to next entry 


;back to octal 
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- INSERT "TASK" 
. INSRT TASK 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 231 
TASK.PLR; 1 PAGE 1 TASK- Store and Forward 


.stitle TASK- Store and Forward 
;TASK local variables 


PAGE Lvars 


O27E tskbuf: .blkw 1 ;buffer we are working on 

repbit: ;reply’s tstate bit (overlays ralshf) 
0280 ralshf: .blkw 1 ;amount to shift rstate,rtype 
0282 tskhst: .blkw 1 ;which host (hostno) 


0284 tskbts: .blkw 1 ;saved copy of task state bits 
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TASK.PLR; 1 


1076 


7078 
SAFE 
4818 
4078 
0001 
8A04 
3008 
6006 


3008 
4878 
30F8 
7049 
7071 
4F78 
9A03 
E421 
9029 
7079 
9A25 


A3B6 
63B8 
154A 


A3B6 


A3B6 
0040 
OOAC 
00392 


2000 


oo0oc 


PAGE 2 TASK- Store and Forward 


ptt ba gic tk tb bt kk 


Page LCode 


;ri=buffer pointer 

;r2=packet pointer (CHAIN word) 
;P3=CHAN word 

;r4=input modem block 
;rS=output modem block 

;r6=sp 

;r7=subroutines, temp 


routine tsk,uses ri-rs 
lock Itq ;access TASK queue 


Ilda ri,=stq 
call deque.whtsk 


if fail ;none to process 
unlock ltq 
return y;back to loop 
endif 
unlock ltq ;done with queue 
Ilda r7,=task 
sta r7,@pid yrun TASK on next packet 
Ida r4,inch(r1) ;source of packet 


if (ri) .bit. =dscpkt ::neth 


Trap 2041,<;Pkt w/discard bit discarded - page 230> 


else 
lda r7,dsth(ri1) 
ifnot zero :zeno IMP illegal 


;more of TASK over leaf 


Pluribus IMP 1301 
TASK.PLR; 1 


2472 
2474 
2478 
247A 
247C 
247E 
2482 
2484 


2488 
248A 
248E 
2490 
2492 
2494 
2498 
249A 
249C 
24A0 
24A2 
24A4 
24A8 
24AA 
24AE 
24B2 


24B4 
24B8 
24BA 
24BC 
24CO 
24C4 


24C6 


4078 
90CB 
ESC3 
4078 
4078 
0001 


9004 


72FC 


24C8 


2FAC 


635C 


25E8 


0002 


0050 


24C8 
2554 


2506 


24C8 
131E 


;TASK continued 


sll r7,1 
Ida r5,spfrut(r7) 
ifnot minus 
and r5S,=routef 
if zero 
call tskack 
Ilda r6,ri 
call forus 
return 
endif 
sli r5,1 


Ilda rS,m2pbik-words(r5) 


if minus 


PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 233 
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:get proper S/F route 
:1MP isn’t dead 

ywhich route? 

:for us} 

;ACK its source then 
;o0ld buffer pointer reg. 
sand process the packet 
;FORUS doesn’t return 


: look up modem block 


;this modem doesn’t exist? 


Trap 2040,<;No rte for task pkt - page 231> 


else 


call ncemove,cntrs+nsf 


if success 


if byte phflag(r5) 


lda r7,slots(r5) 


ifnot minus 
call tskack 
call tsksf 
return 
endif 
endif 
if r3 <> =O 
call tskreq 
return 
endif 
endif 
endif 
call tsknak 
return 
endif 
endif 


oe 0s os oe 


;move count into S/F 
.bit. =phup :line’s up 


;any free slots? 

;yes, we can forward it 
yack source 

queue it on output modem 
;all done ’ 


; from a modem: , 
rrequeue it for task later 


:refuse and Flush a packet 


Trap 2703,<;Flushing pkt for dead IMP - page 231> 


endif 
call tskack 
call flushb.whtsk 


endroutine tsk 


;ACK its source 
:get rid of packet 
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TASK.PLR;1 


2504 


1076 


4ECO 
8cic 
4EBO 
8105 
4078 
0001 
9016 
7O7C 
SAFE 
4873 
AGB8 
4A43 
3C7C 
3D7C 
4943 
48F1 
327C 
A273 
347C 
300C 
4078 


6006 


2598 


4000 


0072 
0062 


OO4E 
0030 


4000 
14FO 


PAGE 4 TASK- Store and Forward . 
7 TSKACK 

;TASK routine to ACK the source of this packet 

;R1/M2 are packet pointer, R3 CHAN word this packet, 
;R4 = INCH (packet source) 

;take appropriate action based on R4 and R3 


routine tskack.arg r3/r4/m2 


if rd > =O ;net a reroute or requeued pkt 
if r3 = =O :from a host 
call tskakh, tskfok ;ACK the host 
else ;from a modem 


lock lockm(r4) 


Ida r7,r3 ;which ACK group is 

srl r3, H8 >from CHAN left half 

add r4,r3 

iorbm r7,infree(r4) ;channel is free 

eorbm r7,rsex(r4) ;complement odeven sex 
sub r4,r3 

lda r7,=1 ;count a packet ACK‘’ed 
addm r7.mithru(r4) 

sll r7,r3 

iorm r7,snull(r4) ;set bit of group to ACK 


unlock lockm(r4) 
call trymod 
endif 
endif 


endroutine tskack 
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7 TSKNAK 

;NACK (negative acknowledge) the source of this packet 
;R1/M2 are packet pointer,’ R2 packet CHAIN word, 

:R3 CHAN word this packet, R4 = INCH (packet source) 
;Returns M2 = MAPV2 

;take appropriate action based on R4, R3 


2506 1076 routine tsknak.arg ri-r4/m2,result m2 
2508 4ECO if r4 > =O snot from reroute or TASK 
250A 8C15 
250C 4078 i31E call flushb,whtsk :get rid of buffer 
2510 0001 
2512 4EBO if r3 = =O ;from a host 
2514 8105 
2516 4078 2598 call tskakh, tskfrf ;refuse it ‘ 
251A 0002 
251C SO00B else ;from a modem 
251E 707C 4000 lock lockm(r4) :get modem 
2522 SAFE 
2524 4873 lda r7,r3 
2526 AGF8 ert P70 He ;ACK group 
2528 4A74 add r7,r4 
252A 3C3F 0072 jiorbm r3, infree(r7) ;free this input channel 
252E 300C 4000 unlock lockm(r4) :done modem 
endif 

2532 6006 return 

endif 
2534 3002 entry tskreq ;enter here to requeue for TASK 
2536 1076 
2538 7078 OOD2 setmap m2,mapv2 ;restore map 2 
253C 3078 FCO4 
2540 7078 A3B6 lock Itq ;access task’sS aux. queue 
2544 SAFE 
2546 30A8 63BE sta r2,@erq 
254A 3028 G63BE sta r2,erq 
254E 3008 A3B6 unlock 1tq :done task’s queues" 


2552 SOFO endroutine tsknak/tskreq 
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TASK.PLR; 1 


1076 


48FO 
3079 
TOF8 
3079 
484D 
7079 
4F78 
8A02 
4AC4 


4078 
0101 
48B1 
7070 
SAFE 
313D 
30A4 
3024 
300D 
787D 
3OF8 


6006 


oo03s2 
62E8 
00398 
003A 
0002 
1000 


146C 


4000 
0050 
4000 


OOOE 
OOAC 


1301 


PLURIBUS V2.9B 


; TSKSF 
;Process a TASK packet for store/forward 

;R1/M2 packet pointer, R2 packet CHAIN word 
;R3 CHAN word for packet, 
;R5 is destination modem 


clear inch(rt) 


set qt(r1) = ®clock 73 TRACE 
lda r4,=epriq(rs5) 
if typh(ri) .nbit. =pribit 


add r4,=eregq-epriq 
endif 
call wheorb,whtsk?whi2m 


Ilda r3,=1 
lock lockm(r5) 


subm r3,slots(r5) 

sta r2,@(r4) ::sregq sprig 
sta r2,(r4) ;1eregq epriq 
unlock lockm(rs) 

ldab r7,motpid(rs) 

sta r7,@®pid 


endroutine tsksf 


25-Jun-87 
PAGE 6 TASK- Store and Forward 


10:57:29 PAGE , 236 


R4 INCH for packet 


routine tsksf, arg r1/r2/r4/r5/m2 


;note this packet is S/F’d 
;note queue time for trace 


yassume it’s priority 
;it’s regular 


;change ownership to M2I 


;get the modem block 


;reduce available channels 
;and enqueue the packet 


;done with modem 
;start it 


fe > Pom 
| 
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TASK.PLR;1 PAGE 7 TASK- Store and Forward 
7 TSKAKH 
;ACK or NACK a host from TASK. 
;Inline arg: TSKFOK or TSKFRF bit to set in HIBITS 
;R4 has host address. Also optionally free the trn bik 
sassociated with this message for host (HITRAN, TSKFRE) 
2598 1076 routine tskakh.arg r4,inline ri,local m1 
259A 1016 
259C 6017 
259E 307E 0002 
25A2 707C 4000 lock lockhi(r4) ;get access to host 
25A6 SAFE 
25A8 7C1C OOI1E iorb r1,hibits(r4) 
25AC 8914 if odd & ri .bit. =tskfre pitskfok 
25AE 4F94 
25BO 9A12 
25B2 4094 eor ri,=tskfre 
25B4 1036 save r3 ;need another temp now 
25B6 703C 402E lda r3,hitrantfoo(r4) shost’s trn blk 
25BA 7078 OOD2 setmap m1,mapv2 ;to get to tran block 
25BE 3078 FCO2 . 
25C2 4878 FFT7F lda r7,=-1?ttresv 
25C6 3B87B EOOD andbm r7,trstat+<mi-m2>(r3) ;release trn bik to task 
25CA 7078 OODO setmap m1,mapvar ;restore map for everything else 
25CE 3078 FCO2 
25D2 6036 restore r3 
endif 
25D4 381C OO1E stab ri,hibits(r4) shost’s flags 
25D8 300C 4000 unlock lockhi(r4) 
25DC 787C OOOF ldab r7,hinpid(r4) sget the host running now 
25EO 30F8 OOAC sta r7,®@pid 
25E4 6016 endroutine tskakh 


6006 
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TASK.PLR; 1 


1076 
1016 
1036 
1046 
6017 
3O7E 


9005 
1076 
1016 
1036 
1046 


7078 
3078 
7038 
SAFE 
704A 
4B48 
4A48 
4E41 
S11E 
7071 
9B14 
7638 
9ci0 
7074 
4EFO 
9coD 
3038 
TO7A 
3078 
6046 
6036 
6016 
6076 
4FFO 
4007 


49B1 


0006 


ooD2 
FCO4 
A3C8 


O6AO 
OO3E 
63D8 


63D0 


A3C8 
FCBO 
FCO4 


PAGE 8 TASK- Store and Forward 


;CMOVE 
;Move the count for this buffer into) a new pool 
;Called with R2/ buffer CHAIN address, inline/ address 
;Of new counter to use. Fail return jif no count 
javailable. Return with map 2 set for buffer. 
; 
routine nemove, inline ri,arg r2,local r1,local r3-r4,result m2 


entry xcmove,arg ri-r2,local ri,local r3-rd.result m2 


setmap m2,mapv2 
lock r3,nf ;access buffer variables 
Ida r4,where-chain(r2) ;Old count of this buffer 


and r4,=whetr 
add r4,=cntrs 


if r4 <> r1 ;need to move it at all 
Ida r7,(r1) ;value of new count 
ifnot minus ;it needs some of pool 
if rQ3 <= minf ;but pool is exhausted 
if (r4) <= =O yand old count isn’t pool 
unlock r3,nf ;can’‘t use new count 
setmap m2,point-chain(r2) :fix map2 


fail return 


endif 
endif 
sub r3,=1 ;bonrow from pool 
endif 
;OVER 
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;CMOVE continued - finish up counters 


2648 48F1 lda r7,=1 

264A 3174 subm r7,(r4) yreduce old count 

264C SBO2 ifnot minus ;it was from pool 

264E 4AB1 add r3,=1 preturn pool count 

endif 

2650 3271 addm r7,(r1) ; increase new count 

2652 4914 sub ri,r4 

2654 321A O6AO addm ri,where-chain(r2) ;and fix WHERE for new cnt 
endif 

2658 3038 A3C8 unlock r3,nf ;done counters 

265C 707A FCBO setmap m2,point-chain(r2) ;set map2 

2660 3078 FCO4 

2664 6046 endroutine nemove/xcmove 

2666 6036 

2668 6016 

266A 6006 


301d CMOVE 
;Inline is new counter, R2 is buffer, return uses 
7M2/R6 for buffer by old convention 


266C 6017 routine ocmove,nosave,arg r2/r6,inline ri,uses ri/r3 

266E 4836 lda r3,r6 7preserve old RG 

2670 4868 O2F8 Ilda sp,=Istack ;and get a stack 

2674 1076 push r7 ;save our caller 

2676 4078 25F8 call xcmove ;our private entry 

267A 9AOS if success :we’1ll skip on success 

267C 6O76 pop r7 ;Fix up reqs 

267E 4863 Ida r6,r3 

2680 400F 0002 skip return ;signal success 
endif 

2684 6076 pop r7 

2686 4863 Ida r6,r3 :fix regs 


2688 4807 endroutine ocmove ;non-skip on fail 
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- INSERT "“IMP.WARM" ,WARM 
- INSRT IMP .WARM 


Pluribus IMP 
IMP .WARM; 1 


268A 
268E 


2692 


2696 
269A 
269E 
26A0 
26A4 


26AG 
26AA 
26AC 
26B0 
26B2 
26B6 
26B8 
26BC 
26CO 
26C4 
26C6 
26C8 
26CC 
26D0 


701B 
301C 


4868 


705C 
702C 
9A04 
4078 
2000 


702C 
9A04 
4078 
90F3 
701D 
9B20 
7028 
4868 
4078 
0000 
OO8E 
4078 
7O07C 
SOF 1 


0008 
002C 


O2F8 


0020 
4034 


1332 


0032 
2C9E 
0004 
63CA 


O2F8 
15AA 


2B70 
4032 


1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 


PAGE 1 TASK- Store and Forward 


.stitle **t* warm page *** 


page HLCode 
, ero warm Ay Pee 


; start at hi with hilo initialized to higo 
;receive a host going down 


hidown: Ida r1,trmidl(r3) 
sta r1,deadsc(r4) 


hidisc: Ilda sp,=Istack 
repeat 
Ida r5,iobloc(r4) 
Ida r2,hisp+foo(r4) 
ifnot zero ;buffer in progress. 
call flush,whhi 


endif 
Ida r2,hibf(r4) 
until zero 


jsb r7,hinbwt ;in case i/o is active 


endrenpeat 
hidis3: Ida ri,endi(r5) ;;hendf ;eom? 


bm hiwait ;found the end of the message being flushed 


Ilda r2,junk :input into junk 
Ilda sp,=Istack 
call hsioin,O,bufend 


hidis4: jsb r7,hiwfe ;waits here during nice stop 
Ida r7,hibf+foo(r4) pijunk ;:get rid of input 
br hidis3 


PAGE 241 


;get dead status 
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IMP .WARM; 1 


26D2 
26D4 
26D8 
26DA 
26DC 
26EO 
26E4 
26E8 
26EC 
26FO 
26F4 


26F6 
26FA 
26FC 
2700 
2704 
2708 
270A 
270E 
2712 


2716 
271A 
271C 
2720 
2724 
2726 
2728 
272C 
2730 
2734 
2738 
273C 
2740 
2744 
2748 
274C 
274E 
2752 
2754 
2758 


2B3A 


OO1F 
6512 
2B3A 
0002 
OEBG6 
18DA 


PAGE 2 


PLURIBUS V2.9B 25-Jun-87 10: 


‘** warm page *** 


;imp has reset host interface 


;wait 2/3 second before proceeding 


hiidle: 


higo: 


; hihd 


repeat while zero 
call hiwm 

endrepeat 

Ilda ri,=hrdown 


57:29 PAGE 242 


stab ri,hihd(r4) ;start host as down 


sta rO,ophgo ;tell the noc 
j;higo isa 1 


jsb r7,hiwm 
Ida r1,hostyp(r4) 

lda r7,bittab(ri) 

tst r7,nonops 

bz hidis3 ;normal 


O=> up 1=>down ready li 


egit dispatch (from bldf/rh) 


;TIP, VDH or real? 
;get bit for this host type 


host: discard first msg 


ne 2=>down tardy 


H 4=>nice-stop or soft reset in pnogress 


hiwait: 


hicum]: 


lda r1i,myimp 


bm hidis4 :going down 


Ilda r7,=-1?tskfre?hirset 
andbm r7,hibits(r4) 
lda r3,hitran(r4) 


inice stop -- wait 


;some error paths need this 


if zero ;need new tnnblik 
jsb r7,hittgo ;give us some time 
jsb r7,trnput ;get a new trnbik 


sta r3,hitran(r4) 
endif 
;cumstats hook. 
Idab r7,homode(r4) 


bz hiled2 :if expecting old format 
Ida r2,=trnetl+<wordst5>-m2(r3) 
jsb r7.hiledi ;read 6 words 

bne hilst :if old format 

tnz hildi2 ;if too shont 


Ilda ri,trtypl(r3) 
stab ri, hipkth+1(r4) 
and ri,=trebit+pflags 
sta ri,trtypl(r3) 

lda ri,trhstl(r3) 
and ri,=-1?maxled 
sta ri,trhstl(r3) 
and ri,=getpri}getmax 
bnm .+6 

ior ri,#getpri_-4 
B17 P7124 
sta ri,hihand(r4) 
br hiled4 


;:getmax ;temp default 


:bits for mes bik 
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275A 
275E 
2760 
2762 
2766 
2768 
276C 
2770 
2774 
2776 
277A 


277E 
2782 
2784 


4B28 
4EA4 
8111 
7O07C 
SAO03 
4008 
482B 
4078 
8ADA 
701B 
4008 


4078 
48A3 
4008 


OOF F 


0002 
2B10 
8006 
2C16 


0004 
2B14 


2B28 


2AFC 


PAGE 3 


;switch 


hiledsS: 


;switch 


hilst: 
hils2: 
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to new format if nop 


and r2,=mestyp 
cmp r2,=cnop 


bne hils2 ;bad leader format 
Ida r7,hostyp(r4) ;check for any non-real 
tnz hinop ::VDH hosreal :already read 6 words 


Ilda r2.=trledr+<words*t3>-m2(r3) 


jsb r7,hiledm ;read 4 more words 
tnz hildi2 ;too short 

Ilda ri,trmidl-<2*words>(r3) 

tr hinop3 


to old format if nop 


jsb r7,hinopt ;maybe its a NOP 
Ilda r2,=cwraft :wrong format leader 
tr hierr 
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2788 
278C 
2730 
2792 
2796 
2798 
279C 
27A0 
27A2 
27A4 
27A8 
27AC 
27AE 
27B2 
27B6 
27B8 
27BA 
27BE 
27C2 
27C4 


27C6 
27CA 
27CC 


27D0 


27D4 
2708 
27DA 
27DE 
27EO 
27E2 
27E4 
27E6 
27E8 
27EA 
27EC 
27FO 
27F4 
27F6 
27F8 
27FC 
27FE 


482B 
4078 
8ACC 
7028 
91E2 
4078 
302B 
7013 
A792 
4B18 
301B 
7013 
4B18 
3018 
7013 
A696 
4B18 
4F18 
9A02 
4994 


301B 
7013 
4B18 


301C 


341B 
7813 
4878 
3073 
4B9F 
9AO05 
4E93 
9103 
4E94 
810A 
4828 
332B 
4E93 
8104 
341B 
4890 
381C 


8002 
2c1ic 


0002 
2B28 
0008 
ocoo 
0002 
OO3F 
0006 


0103 
0100 


0004 
8000 


002A 


0004 


OFOO 


FFFO 
0008 


0008 


0027 


PAGE 4 *** warm page tt* 


;here expecting old format leader 


hiled2: Ida r2,=trledr+words-m2(r3) :;trtypl 
jsb r7,hiledi ; input two words 
tnz hildi2 :if too short 
lda r2,trledr+words(r3) pitrtypl 
be hiledsS ;if new format 
jsb r7.hinopt ;a NOP? 
sta r2.trmidi(r3) 
Ida ri,(r3) :3:trledr 
rel) et,2 ;Pplace bits for: 
and r1,=trebit+toctbit ; trace and octal flags 
sta ri,trtypl(r3) ;to type header 
lda ri.(r3) ;itrledr ;once again: 
and r1,=desti ;just IMP number 
sta ri,trdstl(r3) :that’s dest leader 
Ida ri,(r3) :itrledr ;once again: 
srl ri.,6 :host to bottom 
and r1,=<forimp+desth>_-6 shost bits 


if ri .bit. =forimp_-6 ;for fake host? 


sub ri,=nfh ;fakes are 374-377 (octal) 
endif 
sta ri,trhstl(r3) :dest host leader 


Ilda ri,(r3) :;trledr ;(yawn) 


once again: 


and ri,=priled ;for priority check 
os ior ri.,=getmax ;until further notice 


sta ri,hihand(r4) 


;remember for later 


Hind and r1,=getpri}priled :just priority again 
oR ior r1,=maxled ;until further notice 

iorm ri,trhst1i(r3) :into leader 

Idab ri.(r3) titrledr 

lda r7,=hicode ;make leader pretty 

sta r7,(r3) :;trledr trnetl 

and r1,=hicode_- H8 ;low 4 bit are msg type 

bz hiled8& :reg mess 

cmp ri,=rawpkt 

be hileds8 

cmp r1,=cnop ;NOP 

bne hiledg 
hiled8: Ida r2,=-1?subtyp ;clear subtyp 


andm r2,trmid)(r3) 
cmp ri,=rawpkt 


bne hiledg : 

iorm ri,trmidl(r3) ;set subtyp to 3 

Ida ri,=0 ;now a regular message} 
hiledS: stab ri,hipkth+1(r4) ;new format mess type 


;continues over leaf 


j~7 a 
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2802 781C 401F hiled4: Idab r1,hihd+foo(r4) :i:hostup 
2806 9A05 ifnot zero shost was down. 
2808 701C 402C lda r1i,deadsc+foo(r4) 
280C 3008 6512 sta rO,ophgo 
endif 
;now dispatch on message type 
2810 781C 0027 Idab ri,hipkth+1(r4) :message type 
2814 A291 sil ri :set up for dispatch 
2816 4E18 0011 cmp r1,=hide-hi2-1 ;out of range? 
281A 8C0O3 tl hibadc ;yes 
281C 4008 2AFA 
2820 4089 2824 jmp @hi2(r1) ;dispatch on msg type 
;dispatch table 
2824 2836 hi2: hireg 70 - reg (patched to HIGTWY by PTIP) 
2826 2692 hidisc ;1 - imp format error , 
2828 268A hidown :2 - host going down 
282A 2AFA hibade ;3 
282C 2B10 hinop 74 - nop 
282E 2692 hidisc ;5 - mess for discard 
2830 2AFA hibadce ;6 
2832 2AFA hibadc ;7 - used in code for hibadc reference 
2834 2BOC hiifei  ;:8 - imp format error with id 


hide: 


665 
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4878 
307B 
782C 
4928 
8BO6 
4838 
4A23 
4078 
701D 
8B03 
4008 
0001 
4868 
4078 
8A04 
48A2 
4008 


7818 
381C 
701B 


9B12 
SA11 
4E18 
SCOE 
7028 
9AO7 
7618 
9104 
4078 
SOF 1 


A291 
7019 
8B03 


4008 


4085 
lolejole) 
o001Cc 
8082 
8F50 


2c1isc 
0004 


2012 
O2F8 
3040 


2ADE 


0005 
0028 
0006 


OO7F 
62EO 
62E2 


2B3A 


72FC 


2ADC 


PAGE G6 *** warm page *** 


;got a regular message 


hireg: Ida r7,= H4000+ttreqtttrfnmtttresv ;!-pkt request 
sta r7,trntim+<O*trstat>(r3) ;state for errors 


Idab r2,homode(r4) 
sub r2,= H80+2+m2 


;padding moce 


bnm hireg4 ;don’t need to read any padding 
Ida r3,=hipad ;padding goes here 
add r2.r3 
jsob r7,hiledm ;read the padding 
hireg4: Ida ri,endi(r5) ::hendp 
tm hildi2 :if leader is too short 
.IF NZ VHA 


Ilda sp,=Istack 
call hivha 


;get us some temps: 
:modify leader if need be 


e if fail ; troubles doing it 
Ilda r2,=cldrp ;dest dead subcode 
tr hidead 

endif 
. ENDC 
higtgo: ;patched by PTIP 

ldab ri,trhstl+i(r3) ;dest host 

stab ri,hihost(r4) 7; for mess num search 
hiregS: Ida ri.trdst1l(r3) ;dest IMP 


ifnot minus } zero } r1 > =nimp 


Tda r2,.myimp 
if nzero & ri <> mine 


call hiwimn 
br hiregS 
endif 
sii nt. 
lda ri,spfrut(r1) 
bnm hireg3 ;:spfded 
endif 
jmp hiimpd 


;check if we are up 


;must wait if not, and not for us 
itry again 


| 
:double IMP number 
;get route to this IMP 
;branch if not dead 


;destination dead 
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4078 
4078 
8A03 
4008 
707B 
4BFF 
4EF3 
812D 
4078 
8A28 
4868 
4078 
9A23 
4865 
48F3 
3471 
4078 
301E 
8917 
707D 
7O1C 
9912 
8B11 
2079 
4E1E 
9COC 
4078 
4078 
SAOB 
7O7C 
702C 
4008 


7078 
3078 
4008 


2CCC 
2C60 


2B06 
0008 


2C9E 


O2F8 
2CD6 


5A96 
OOOA 


40D0 
0036 


0002 
oo08sc 


2D5A 
2B96 


4026 
4034 
2A06 


oo0D2 
FCO4 
2692 
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;Fast Local Hosts here: 


(use trnblk as reassem blk) 


: 2. Call hinbuf 

; 3. Get nre, return nhi space 

: 4. Bufb gets Tran blk addr 

"3 (plus sign to tell IH to queue RFNM) 

; 5. Queue buff in tran blk 

; 6. If not last pkt go to 2. 

; 7. Link packets and call t2ho 

hireg3: jsb r7,hittgo :give us 15 seconds 
jsb r7,hinbuf :start reading a pkt 
tz hiblk ;couldn’t get a buffer 


lda r7,trmidl(r3) 
and r7,=subtyp 
cmp r7,=rawpkt 


;raw packet (type 3)? 


bne hiregG ;if not a raw packet 

jsb r7,hinbwt :wait for read to complete 
bnz hirds ; timed out 

lda sp,=Istack 

call hiset suse any old rmblk (or O) 
bfail hirds ;hisp failure. 

Ida r6,r5 

jda r7,=rawpkt 

jiorm r7,(r1) zi:midh 

jsb r7,fndhac ;check hac words 

sta ri,pkth(r6) ;;hacmem 

bno hirmds ;raw packets prohibited 


lda r7,haccom(r5) 
Ida ri,hiendi(r4) 


bo hirmds ;hardware error 

bnm hirmds ;multi-packet message 
sta r7.words(r1)+ ¢am2 

cmp r1,=bufend-words(ré) 

bl hirmds :too long by one word 
jsb r7,hipktr ;checksum packet 

call hi2tsv :give packet to task 
bz hirds ;blocked by task 

Ilda r7,hipkth+foo(r4) :for thruput 
Ida r2,hisp+foo(r4) 

tr hirfsh :flush and count raw packet, 


hirmds: Ilda r7,mapv2 


hirds: tr hidisc 


sta r7,%map2 


667 
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2910 
2914 
2918 
291C 


4078 
307B 
301B 
302C 


4078 


9A03 
4008 
4877 


SBSA 
8903 
4008 
4078 
9A33 
4896 
3D1B 
4078 
9072 


4818 
341C 
4868 
4078 
9A38 
4865 
4078 
4078 
303C 
7O5C 
4898 
6075 
2073 
4991 
8AFD 
4818 
301D 
702C 
4078 
4853 
703C 
303C 
4877 
8A08 
387D 
4858 
335C 
907F 


4086 
FFFC 
0034 
2B9E 


OQOOA 
OO2E 


0000 
7FFF 
0026 
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PAGE 8 *** warm page *** 
hireg6: jsb r7,mesget :get a mess # 
sta r7,trluse(r3) ;note local use number 
sta ri.trhst!(r3) ;has messno, tm b1k num 
sta r2,hipkth(r4) : and foreign use number 
; trace goodies go here 
jsb r7,hinbwt ;wait for buffer to fill up. 
swaiting for first pkt 
tnz hipslo ;if timer went off 
Ilda r7,r7 7 ;hendf 
higtx: ;PTIP return point 
bm hipkia :yes, single pkt 
to hiperr :iherrf ;if ready line flapped 
jsb r7,hinbuf :start next pkt read 
bz hipblj ;no buffer 
Ida ri,=ttmult?ttreq jmank trnbilk as a multi 
eorbm ri,trstat(r3) > non-request 
jsb r7,tallyg sany alloc from our dest? 
br hiplto 7yes 
;get an allocate for this guy | 
Ilda r1,=mitpkt}reqtyp ;mank us a multi 
iorm ri,hipkth(r4) :injour pkth 
lda sp.=Istack 
call hiset ;copy header 
bfail hiplc7 shisp failune. 
Ida r6.r5 
jsb r7,hipkte ;set up checksum 
jsb r7,trnput iget a new trnbik 
sta r3.hisav7(r4) :remember new trnb1k 
Ida r5,hitran(r4) 
Ida r1.,=trnl/2 
hicpt1: Ida r7,(r5)+ ;copy in old trnbik contents 
sta r7,(r3)+ 
sub ri,=1 
bnz hicpti 
Ida ri,= H4000+ttreq+ttmult+ttresv :remember the request 
sta ri.trntim+<O*trstat>-trnl(rS) <:set up old trnblk 
Ida r2,hisp(r4) 
jsb r7,hi2tsk 
Ida r5,r3 ;start using new trnbik 
Ida r3,hisav7(r4) 
sta r3,hitran(r4) 
Ida 77.07 :did hi2tsk |block? 
bnz himg8m 
stab r7,trstat(r5) :free trn blk 
Ilda r5,=-1?mitpkt 
andm r5,hipkth(r4) 
hipblj: br hipblk ;and maybe this might help? 
| 


) 669 
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29A0 4078 2DD4 himg8m: jsb r7,mesget :get new mess no for mess8 
trluse should be unchanged 
29A4 302C 0026 sta r2.,hipkth(r4) 
29A8 301B 0004 sta ri,trhstl(r3) smessno, tm blk to trnblk 
29AC 702C 0034 hiwali: Ida r2,hisp(r4) ;wait for req to qo out 
29BO0 701A OGAO lda ri.,where-chain(r2) 
29B4 4F18 DFC1 tst ri,=-!?whetr?whhi 
29B8 SAOA bz hireq3 :if it’s gone 
29BA 4078 2B3A jsb r7,hiwm 
29BE 8AF7 bnz hiwali J 
29CO EG8F Trap 3217,<:Host blkd requesting alloc - page 247> 
29C2 4008 2AC8 tr hiures :can’t reuse this buffer 
29C6 E6C6 hiple7: Trap 3306,<;Clbbrd hisp requesting alloc - page 247> 
29C8 4008 2AC8 jmp hiures :release trnblk for inc timeout 


;now ensure we have an allocate 


29CC 4078 2EFA hireq3: jsb r7,tallyg sany alloc from our dest 


29D0 902C br hip1to yyes 
29D2 4078 2B3A ®@ jsb r7,hiwm 
29D6 8AFB bnz hireq3 
29D8 E68D Trap 3215,<;Host blkd awaiting alloc - page 247> 
29DA 9061 br hipblk 
29DC E6C7 hipkic: Trap 3307.<;Hisp clbbrd in pkt - page 247> 
29DE 9075 br hiures ;let the mess time out 
29EO 4818 4001 hipkia: lida r1,=reqtyp+Istpkt ;mark as req for 1 
hicumt: ;hook for cum stats. 
29E4 341C 0026 iorm ri, hipkth(r4) ;mark up hi pkth 
29E8 302B OOOE sta r2,trpack(r3) 
29EC 4078 2D60 h2tx: jsb r7,hipkt 
29FO SAFG bz hipkic shisp was bad 
hicump: ;hook for cum stats. 

29F2 4078 2B96 jsb r7,hiatsv 
29F6 9A53 bz hipblk ‘ 
29F8 702C 4034 lda r2,hisp+foo(r4) 
29FC 701C 0026 Ida ri,hipkth(r4) 
2A00 4F18 OOFO if ri .bit. =pktnum :single pkt message. 
2A04 9A04 

hirfsh: 
2A06 4078 1314 call oflush,whhi :last pkt of multi (or raw pkt). 
2A0A 2000 

endif 

2A0C 705C OOOA lda r5,hisav7(r4) ;dest of this message 
2A10 781C 0027 Idab ri,hipkth+1(r4) 
2A14 48B0 lda r3,=0 
2A16 4868 O2F8 Ida sp,=Istack 
2A1A 4078 5B24 call hothru,htpmtn 
2A1E OO3A 
2A20 705C 0020 Ida r5,iobloc(r4) 


2A24 4008 26F6 jmp hiwait 
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; top of packet loop 


2A28 4818 0040 hipltO: Ida ri,=ttgvba ;now we have an alloc 


2A2C 3C1B OOOD iorbm ri,trstat(r3) 
2A30 4818 8000 lda ri,=mitpkt 
hicumm: shook for cum stats. 
2A34 341C 0026 jorm ri,hipkth(r4) 
2A38 4078 2D60 himess: jsb r7,hipkt :set up header and bufr control 
2A3C 9ADO bz hipkic ;hisp was bad 
2A3E 4078 2B96 jsb r7,hi2tsv ;will flush trnbilk if last pkt 
2A42 SA2D bz hipblk ;hHi2tsk tests hitt 
2A44 702C 4034 Ida r2,hispt+foo(r4) 
2A48 4078 1314 call oflush,whhi 
2A4C 2000 
2A4E 4818 OO010 Ida ri,=-pktnum&pktnum ;incremental packet no. 
2A52 321C 0026 addm ri,hipkth(r4) j 
2A56 4078 2CSE jsb r7.,hinbwt ;wait for read to complete 
2ASA 8A10 bnz hipslo ;if timer went off 
2A5C 4877 lda r7,r7 ;ihendFf ;eom? 
2ASE SBC7 bm h2tx ;end of message 
2A60 9911 bo hiperr ;iherrf ;ready line flap 
2A62 707C 0026 Ilda r7,hipkth(r4) 
2A66 4B78 OOFO and r7,=pktnum 
2AGA 4E78 0070 cmp r7,=<-pk tnum&pk tnum>*7 
2AGE 9115 be hiptng ;branch if pkt no=7 
2A70 4078 2C60 jsb r7,hinbuf ;get a new buffer 
2A74 8AE2 bnz himess shitt not run out 
2A76 E691 Trap 3221,<;Host blkd middle of 8-pkt - page 248> 


2A78 9012 br hipblk 
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2A7A 
2A7C 


2A7E 
2A80 


2A82 
2A86 
2A8A 


2A8C 


48A2 
9014 


48A5 
9012 


701D 
4F18 
9A03 


E602 


ge 249 


2A8E 
2A90 
2A92 
2A94 
2A96 


2A98 
2A9A 


2A9C 
2A9E 
2AA2 
2AA4 
2AAG 
2AAA 
2AAC 
2ABO 
2AB4 
2AB8 
2ABA 
2ABC 
2ACO 
2AC4 
2ACG6 


2ACB 
2ACC 
2AD0 
2AD4 


2AD6 
2AD8 


9002 
EGAO 
4898 
48A0 
3008 


48A1 
s005 


48FO 
307B 
48A4 
4899 
4078 
48F3 
387C 
4868 
4078 
SAOF 
4865 
4078 
4078 
8A19 
E692 


703C 
4878 
3B7B 
9011 


E6C8 
SOF8 


0006 
0100 


OQOOE 


5Boc 


0027 
O2F8 
2CD6 


2054 
2B9E 


402E 
FF7F 
oo0op 
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shost error exits 


:first 


hipslo: 


hipbad: 


hiperr: 


hipting: 


hipblk: 


hisubc: 
hisub2;: 


;Enter 


group after message begun 


lda r2,=cslows ;cslows=2 
br hisubc ;mark mess as too slow 


lda r2.=cimper ;imp-detected i/o error 
br hisubc 


lda ri,statih(rs) :quit err? 
tst ri,=hquit 
bz .+6 


Trap 3002.<;Host input err (Numerous traps call maint) - page 249> 


br .+4 ; 
Trap 3240,<;Error during host input data - page 249> 
Ilda ri,=cerror ;error during data 


lda r2,=0 

br hisub2 ifix type too 

Ilda r2,=clong ;clong=1 

br hisube ;mark mess as too long 


set trpack(r3) = #0 


Ilda r2,=cbhlock ;cblock=4 ¥ 
lda ri,=cinctr ;incomplete transmission : 

jsb r7,hierc ;error code to trnbik 

lda r7,=inmtyp ;incomplete message 

stab r7,hipkth+1(r4) :to tell dest 


lda sp,=Istack 
call hiset 
bfail hisub3 ;bad hisp too} 


lda r6,r5s 

jsb r7,hipkte ;send just the header part (use r1) 
jsb r7,hi2tsk 

bnz hidisj :let discard flush hisp 


Trap 3222,<;Task blkd inc msg - page 249> 


here after error that lost a buffer from hisp, 


; or fall in if Task refused an incomplete message 
;Just releases the trnblk, so the message number timeout 


© WET 
; here 


clean up the message. Not much else we could do 
except try to get a new buffer from the free list, 


but why bother? 


hiures: 


,error 


hisub3: 


Ida r3,hitrant+foo(r4) ;release the trnblk 

lda r7,=-1?ttresv ;other bits are all set up 
andbm r7,trstat(r3) 

br hidisj :forget rest of message 


message is actually sent to host by ine reply code 


Trap 3310,<;Bad hisp for bad message - page 249> 
br hiures 


$71 
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| 


vhost error exits, before message started, or if no recovery 


2ADA E7C4 hidie2: Trap 3704,<;dest died in hi - page 250> ; 

2ADC 48A0 hiimpd: Ida r2,=cimpd ;dest IMP dead 

2ADE 4EA1 hidead: cmp r2,=chstd ;is it a dest host dead? 

2AEO 9102 be .+4 ;yup, use status 

2AE2 48FO Ida r7,=0 :nope, give no statis 

2AE4 4897 lda ri,=cdestd 6. 
2AE6 307B OOOA sta r7,trdeds(r3) ;Save reason for host dead 
2AEA 4078 SBOC hi2h: jsb r7.hierc | 

2AEE 703C 402E Ilda r3,hitran+foo(r4) 

2AF2 4078 188A jsb r7.,ledpo ;put this trn blk on host 


2AF6 4008 2692 hidisj: jmp hidisc 


:Got a bad Host-IMP code 


2AFA 48A2 hibade: Ida r2,=cillgl ;cillgl=2 

2AFC 4891 hierr: Ida ri1.=cerrid 

2AFE 4878 OFOO ida r7,=hicode 

2B02 3073 sta r7,(r3) zitrnetl ;new format 
2B04 SOF3 br hi2h 

2B06 48A4 hiblk: Ilda r2,=cblock ;host blocked 

26808 4899 lda ri,=cinctr ;incomplete transmission 
2BOA SOFO br hi2h 


;Got an error message from a host 


2BOC EFC8 hiifei: Trap 7710,<;Host sent err wid - page 250> 
2BOE SOF4 br hidisj 
| 


;got a NOP from a host 


2B10 701B 0008 hinop: tIda ri,trmidi(r3) ;get desired padding 

2B14 4B9F hinop3: and r1,=subtyp ;entry from old format code 
2B16 4E99 cmp ri,=himaxp 

2B18 8C02 bnl hinop2 

2B1A 4899 lda ri,=himaxp ;truncate padding request to maximum 
2B1C A291 hinop2: sll ri.1 + 7words 

2B1E 4C18 0080 ior rt,= H80 : indicate new format 

2B22 381C O01C hinopi: stab r1i,homode(r4) 

2B26 SOE8 br hidisj 


;check for old format NOP 


2B28 4E£18 0400 hinopt: cmp r1,=cnop_ H8 :got a NOP? 
2B2C S1FB be hinopt :yes, take it 
2B2E 4007 jmp (r7) 
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hipok - sleep with immediate wakeup 
hiwm - sleep, wait for event or clock tick. 


These routines are the HI sleep routines; hipok 
sleeps after poking its own PID; while hiwm sleeps, and waits 
either for a tick (hitt positive), or for packet arrival (hitt 
negative). Always returns with hitt in r7, and the cc set 
to match r7. Eventually, convert to stack routines using 
per-host stacks. 


Takes r4 set to host block pointer. 
Returns r3: tran blk, r4: host blk, r5: io blk, r6:Istack 


routine hipok, nosave, arg r4, result r3-r6 
2B30 781C OOOF ldab ri,hinpid(r4) ;poke host input PID to shorten nap. 
2B34 3098 OOAC sta r1,@pid 


26838 9001 entry hiwm, nosave, arg r4, result r3-re6 

2B3A 307C 0004 sta r7,hilo(r4) ;save return address. 
repeat :dismiss until ready 

2B3E 300C 4000 unlock lockhi(r4) ;release process state 

2B42 4008 1086 tr loopm :sleep via PID dispatch 

hi: ;come here from loop. 

2B46 7049 81CO Ida r4,mbIlks(r1) ;host block pointer. 

2B4A 705C 0020 Ilda r5.iobloc(r4) :io device pointer. 

2B4E 707C 4000 lock lockhi(r4) ;lock HI state 

2B52 SAFE 

2B54 702C OOOC Ida r2,hitt(r4) sHost timer: minus => wait for hardware 

2B58 8BO6 while minus & statih(r5) .bit. =hbusy 


2B5A 707D 0006 
2BS5E 4F78 2000 


2B62 8AEE 
endrepeat 
2864 703C OO2E Ilda r3,hitran(r4) ;Transaction block address. 
2B68 4872 jda r7,r2 ;set cc on hitt. 
2B6A 408C 0004 jmp @hilo(r4) sreturn to caller. 


2BG6GE 4807 endroutine :rhipok,hiwm 
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.comnt | 
hiwfe - wait forever for hardware to become idle. 


This routine sleeps, and returns only when 
the host hardware busy bit, hbusy, becomes clear. Uses 
hiwm to sleep. 


Takes r4 = host block pointer. 
Returns r3: tran blk. r4: host blk, r5: io bik, r6:1lstack 


routine hiwfe, nosave, arg r4, result r3-r6é 
2B70 307C OOOA sta r7,hisav7(r4) 


repeat 
2874 4078 2B3A call hiwm 
2B78 707D O006 while statih(r5) .bit. =hbusy 
2B7C 4F78 2000 
2B80 BAFA 
endrepeat 
2B82 707C OOOA Ida r7,hisav7(r4) 


2B86 4807 endroutine hiwfe 


Pluribus IMP 1301 
IMP .WARM;1 


0078 
OO0O0C 
0092 


0006 
OOOA 
0008 
0006 


FFFC 
OO1E 


O2F8 
146C 


0350 
14AA 


2B3A 
0006 
O6AO 
2000 


OO1E 


oooc 


0002 


1332 
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PAGE 15 +** warm page *** 


:Host Input Subroutines 


, 
. 
' 
‘ 
' 
’ 
, 


give a packet to task and wait until task takes it 
call on r7 - pkt in r2 - clobbers all but r2,3,4 
returns r7 and its cc: O-blocked by task, not zero-ok 
flushes buffer if blocked and called from a back host 


*** Called from backs (gvtskc,d) and hi (gvtskm,hi2tsk) 
*** entry point hi2tsv (hi) saves trdst! via r3 in hisav7 


gvtskc: Ida r3,=sec3 :backs wait little 


sta r3,hitt(r4) ;since no recovery 


gvtskm: sta r4,inch(r6) 


hi2tsv: lda r3,trdsti(r3) 


br hi2tsk 


;save dest for caller 
sta r3,hisav7(r4) 


hi2tsk: sta r7,htemp7(r4) 


sta r2,htemp(r4) 


repeat 
set r7 = =-1?tskfok?tskfrf 
andbm r7,hibits(r4) 
set sp = =Istack 


call wheorb,whtsk 
set chan-chain(r2) = =O ;make source be host 


call ttskput 


repeat swait for task to do its stuff 
call hiwm :sleep for a while 
set r2 htemp(r4) ;get buffer back — 


set r7 = where-chain(r2) ;check ownership 
if r7 .nbit., =swhhi pnot ours any more} 


Trap 3231,<;Lost buffer in hi2tsk - page 253> 


br fret ;;fail return 
endif 
setb r7 = hibits(r4) pwhat did task do? 
bodd ret ;;tskfok :all ok, return success 
until r7 .bit. =tskFrf ;refused, try again 
endrepeat 
set r7 = hitt(r4) ycheck timeout 
until zero ;timed out, refuse host 
endrepeat 
set r7 = hostyp(r4) :tell host what happened 
if minus : but if back, lose buffer 


7rG left by hiwm 
call flush, whhi 


Trap 3232,<;Bk blkd awaiting task - page 253> 
else rreals and fakes just find out 
Trap 3216,<;Host blkd awaiting task - page 253>° 
endif 
fret: 


lda r7,=0 :actually return O in r7 (fail ret) 


ret: 
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2c00 
2Cc04 
2C08 
2COA 


2COC 
2COE 


2C12 
2C14 


702D 
4F28 
9A02 
E603 


48A0 
4008 


48A1 
SOFD 


701D 
SBFC 


307C 
302C 
4813 
4B18 
4921 
AG94 
7418 
4832 
4868 
707C 
40FF 
4078 
707D 
99Dc 
757C 
7013 
4B18 
4E18 
4F78 
408C 


0006 
0100 


2AFC 


0004 


0008 
0006 


1FFE 


ooD2 


O2F8 
0002 
12BE 
2B70 
0004 


0006 


OFOO 
OFOO 
1FFE 
0008 
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hilede: Ida r2,statih(rs) 
if r2 .bit. =hquit 


Trap 3003,<;Host input err in leader - page 254> 


endif 
Ida r2,=cerr32 ;error in leader or padding 
tr hierr ;report the error 


hildi2: lda r2,=cshort ;leader and padding is too short 
tr hierr 


;set up input parameters to point to leader storage area 
;call with r3 pointing to first desired data word, 

> 72 pointing to last word, omit map 

;return eom indicator as sign in r7 

; ce nz if too short, e if new format (usually). 

sentry points: hiledi for initial read, hilecm to read 

; more leader or padding 


hiledm: Ida r1,endi(r5) ;;hendf 
bm hildi2 :if too short 


hiledi: sta r7,htemp7(r4) 
sta r2,htemp(r4) 


Ida ri,r3 :;trenblk ;start leder input here 

and ri,=packm snow pack this place 

sub r2,r1 :length for input 

srl ri,4 

jor ri,mapv2 

Ilda r3,r2 ;move arg to the right place 


lda sp,=Istack 

Ilda r7,hostyp(r4) 

call @hitable(r7) 

jsb r7,hiwfe 

Ida r7,endi(r5) ;;herrf 


; input by host type 


bo hilede ;error during leader 
eor r7,htemp(r4) ;check length 
Ida ri,(r3d) ritrnet] 


and r1,=hicode 

cmp r1i,#hicode ;return cc 

tst r7,=packm ;cc nz if too short. e if new format 
jmp @htemp7(r4) 
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.comnt | 
hinbuf - set up a new host input buffer. 


This routine gets a new buffer for host input, then 
sets up the host interface to read into that buffer. If it 
can’t get a buffer, it sleeps a tick, then tries again. 

If that fails, it will trap, and return a zero condition code. 


Takes r4: host blk. 
Returns r3: tran blk, r4: host bik, r5: io blk 


routine hinbuf, arg r4, nosave 


2C60 307C 0008 sta r7,htemp7(r4) ;Save return address 
2C64 4868 O2F8 Ilda sp,=!Istack ;stack needed by freget and hsioin 
repeat ;try to get host input buffer. 
2C68 4078 13C6 call freget.whhitnhi ;get buffer. 
2C6C 200E 
2CGE 8A04 until succeed ;we got it} 
2C70 4078 2B3A call hiwm 7;sleep a tick 
2C74 8AFA until fail ;zero => timed out. 
endrepeat 
2C76 8AO3 if fail :fail => timed out 
2C78 E68A Trap 3212,<;Host blkd awaiting free buffer - page 255> 
2C7A QSOOF else ;got buffer. 
2C7C 302C 0032 sta r2,hibf(r4) ;save buffer chain word. 
2C80 7078 OOD2 setmap m2,mapv2 ;needed by hsioin F 
2C84 3078 FCO4 
2C88 7O0S5C 0020 Ida r5,iobloc(r4) ;device address for start input 
2C8C 4078 15AA call hsioin,data,bufend ;host start input 
2C90 0010 ‘ 
2C92 OO8E 
2C94 703C OO2E Ilda r3,hitran(r4a) ;set cc non-zero 
endif 
2C98 408C 0008 jmp @htemp7(r4) zreturn to caller. 


2CSC 4807 endroutine hinbuf 
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2C9E 
2CA2 
2CAG 
2CAA 
2CAE 
2CB2 
2CB6 
2CBA 
2CBE 
2Ccc2 
2cc4 
2cc8 


2CCcCc 
2cDO 
2CD4 


307C 
4878 
307C 
4078 
4078 
702C 
302C 
707D 
307C 
4898 
TFIC 
408C 


4818 
301C 
4007 


0008 
FDA8 
oo0oc 
2B30 
2CCC 
4032 
0034 
0004 
0036 


OO1E 
0008 


0258 
O00Cc 
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*** warm page +t 


j;wait for input to finish 
yreturn r2 hisp.r7 hiendi, cc nz means reset 


hinbwt: 


hittgo: 


sta r7,htemp7(r4) 


lda r7.=-seci5 ;init hitt for hardware 
sta r7,hitt(r4) 

jsb r7,hipok :wait for host 

jsb r7,hittgo ;set software timer 


lda r2,hibf+foo(r4) 

sta r2,hisp(r4) ;returns hisp in r2 

Ilda r7,endi(r5) ;save hardware length in hstblk 
sta r7,hiendi(r4) ;returns endi in r7 

lda ri,=hirset ;set cc nz if we were reset 
tstb ri,hibits(r4) 

jmp ®htemp7(r4) 


Ilda ri,=seci5 ;normal time for a host 
sta ri,hitt(r4) :now waiting for imp 
jmp (r7) 


679 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 259 
IMP .WARM; 1 PAGE 19 *t** warm page *** 


;Set up the header of a packet 

7;Call: r7/return, r4/host, r3/trnblk 

;Return: ri/=midh(r5), r2/hisp(r4), r5/buffer unpacked 
; ri is arg to hipkte below for error case. 

; Bad buffer in hisp returns fail condition. 


2CD6 1076 routine hiset, arg r3-r4, result ri-r2, result r5 
2CD8 702C 4034 Ida r2,hisptfoo(r4) 
2CDC 4078 1500 call unpekc,whhi 
2CEO 2000 
2CE2 8A04 if fail 
2CE4 6076 fail return 
2CE6 4FFO 
2CE8 4007 
endif a 
2CEA 4851 lda r5,r1 7r1 will move through packet. 
2CEC 7078 808C set %map3 = m2/slfptr ;copy map2 to map3 
2CFO 3078 FCOG 
2CF4 1076 save r7 swe’ll need this again 
2CF6 7078 OOD2 setmap m2,mapv2 ;SO we can get to trnblIk 
2CFA 3078 FCO4 
2CFE 4A18 2000 add r1,#m3-m2 ;reference buffer through map3 
2D02 48FO Ida r7,=0 
2D04 2071 sta 77, (rt)+ ;ineth = O 
2D06 707B 0002 Ilda r7,trtypl(r3) :flags 
2DOA 2071 sta r7,(ri)+ yityph 
2D0C 48FO Ida r7,= 
2DOE 2071 sta r7,(r1)+ 7: chkh=0 
2D10 7078 62E2 lda r7,mine ymy imp number 
2014 2071 sta r7,(r1)+ s3srch 
2D16 787B 0004 ldab r7,trhsti(r3) ;mesnum 
2D1A 2871 stab r7,(ri)+ ::seqh » i 
2D1C 707C 0030 Ida r7,hioldb(r4) ;message block this message 
2D20 787F 6937 ldab r7,tmet1+1(r7) > pmbIk num : 
2024 2871 stab r7,(ri)+ ::seqh?1 
2D26 707C 0026 Ida r7,hipkth(r4) ;pkth set up 
2D2A 2071 sta r7,(ri)+ sipkth 
2D2C 707B 0006 Ilda r7,trdsti(r3) ;dest IMP 
2D30 2071 sta r7.(ri)+ 7;dsth 
2032 707B 0008 lda r7,trmidl(r3) :messid, subtyp 
2036 4878 FFFO and r7,=messid ;subtyp must be O 
2D3A 3071 sta r7,(ri) ;imidh 
2D3C 7078 OODO setmap m3,mapvar ;fix map3 
2D40 3078 FCOG6 
2044 6076 restore r7 ;buffer map 
2D46 3078 FCO4 sta r7,%map2 ;restore it 
2D4A 4918 2000 sub ri,#m3-m2 :fix buffer pointer 
2D4E 302C 0034 sta r2,hisp(r4) ;restore hisp. 


2D52 6006 endroutine hiset 


a —— 
{ 
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;Set up header and checksum packet 
;Call Hipkt with args as for hiset (previous page) 
; it calls hiset First thing 
;Call hipkte with preferred endpointer in ri to handle 
; error cases to send inc msg to destination. 
;Return: 
; r2/ hisp(r4), r3/hitran(r4), r5/iobloc(r4). r4/host, 
;Bad hisp in hiset returns zero condition code. 
;uses htemp7(r4) and temp2 
preturn with mapv2 in %map2 in all paths 
;Special entry with ri/ =midh(r6) for error case 
:r2 is not used by this entry point 
2054 307C 0008 hipkte: sta r7,htemp7(r4) 
2D58 SOOF br hipki 
;Special entry with r1/ haccom word for raw packets 
2D5A 307C 0008 hipktr: sta r7,htemp7(r4) © 
2D5E 9013 br hipk2 
2D60 307C 0008 hipkt: sta r7,htemp7(r4) 
2D64 4868 O2F8 Ilda sp,=Istack 
2D68 4078 2CD6 call hiset ;set up header first 
2D6C 9SA2B bfail hipk3 shisp failure 
2DGE 4865 Ida r6,r5 
2D70 701C OO36 Ida ri,hiendi(r4) ;and its end pointer. 
2074 8B08 bnm hipk2 pi hendf 
2D76 4878 4000 hipki: lda r7,=lstpkt ;At end: put in last packet bit 
2D7A 347E OOOA jiorm r7,pkth(r6) 
2D7E 48F4 Ilda r7,=tskfre ;tell task to release trnblk’ 
2D80 3C7C OO1E iorbm r7,hibits(r4) . 
2084 4916 hipk2: sub ri,r6 
2086 4B18 1FFE and ri.=packm 
2D8A 301E 0030 sta ri.bufe(rs6) yproper hardware end 
2D8E 4878 OO8C lda r7,=bufend-hrdof f . 
2092 4971 sub r7.r4 
2094 9B19 bm hipker 
2D96 4816 Ida ri.r6 
2098 4868 O2F8 Ida sp,=Istack 
2D9C 4078 17D4 call peksubr slength in BUFE already 
2DAO 3039 0004 sta r3.chkh(r1) oe 
2DA4 703C OO2E Ilda r3,hitran(r4) 
2DA8 7OF8 62E8 Ilda r7,@clock 
2DAC 3079 0096 sta r7,it(ri) 
2DBO 3049 0092 sta r4,inch(r1) 
2DB4 7078 OOD2 setmap m2.mapv2 
2DB8 3078 FCO4 
2DBC 4861 Ilda r6.ri1 ‘ 
2DBE 7OSC 0020 Ida r5,iobloc(r4) ;set condition code non-zero 
2DC2 408C 0008 hipk3: jmp @htemp7(r4) 
2DC6 EGFO hipker: Trap 3360,<:HI bad packet length - page 258> 
2DC8 7018 OOD2 Ida ri,mapv2 
2DCC 3018 FCO4 sta ri,%map2 
INNO 4NO0R DATE imp hinpbad :q006 inform our HOST 
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;Get a message number for an input message, a request for 8, 
;or an incomplete message. 

;return ri: mess num,local tm block (trhst1), 

; r2: foreign use (pkth). r7: local use (triuse). 


2DD4 307C OOOA mesget: sta r7,hisav7(r4) 
2DD8 705C 0030 mgoOO: Ida r5,hioldb(r4) ‘ 


2DDC 4078 2E42 jsb r7.mgtest ;check last used tm blk 
2DEO 4858 0380 Ida r5,=tmnumttmien 
2DE4 9006 br mgO3 F 
2DE6 767D 6934 mg0O2: cmp r7,tmhost(r5) 
2DEA 8105 bne mgO4 
2DEC 4078 2E42 jsb r7,mgtest ;check all current tm blks 
2DFO 707C 0028 mgO3: Ida r7,hihost(r4) 
2DF4 4958 0010 mg04: sub rS,=tmlen 
2DF8 8B8F7 bnm mgO2 
2DFA 4858 0370 Ida r5,=<tmnum-1>ttmien 
20FE 707D 6932 mg0O5: Ida r7,tmimp(r5) 
2EO2 8BOF bnm mgO6 
2E04 706D AS30 lda r6,tmlock(r5) 
2EO8 SAFE bz .-4 
2EOA 707D 6932 Ida r7.tmimp(rs) 
2EOE 8BO7 bnm mgO8 
2E10 7070 6938 lda r7,tmmess(r5) 
2E14 4FFC tst r7,=ageO* HC 
0001 -if nz LBig ;must jump to common 
2E16 SAO03 tnz mgO7 ;found a free tm blk 
2E18 4008 59E6 
APF 
bnz mgO7 ;found a free tm blk 
-endc 


2E1C 300D A930 mgO8: sta rO,tmlock(r5) 
2E20 4958 0010 mg0O6: sub r5,=tmlen 


2E24 8BED bnm mgOS 
2E26 702B 0006 mgO39: Ilda r2,trdstl(r3) ;check dest imp state 
2E2A A2A1 sll r2,1 
2E2C 7OGA 72FC lda r6,spfrut(r2) ;reachable? 
2E30 8BO3 if minus ;i:spfded 
2E32 4008 2ADA jmp hidie2 ;destination dead 
endif 
2E36 4078 2B3A call hiwm 
2E3A 8ACF bnz mgd 7no timeout yet 
2E3C E68C Trap 3214,<;Host blkd awaiting mes num or blk - page 259> 


2E3E 4008 2B06 mg01: tr hiblk 
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FCOO 


59C6 
SSCA 
59CC 
S9D0 
59D4 
59D6 
SSDA 
59DE 
59E2 


0400 


4078 
2000 
7O5C 
706D 
SAFE 
4878 
347D 
300D 
4008 


1314 


0030 
A930 


8000 
6932 
A930 
2B06 
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page Warm 
call oflush,whhi 


Ida r5.,hioldb(r4) 
Ida rG6,tmlock(r5) 
bz .-4 

Ida r7,=sign 

iorm r7,tmimp(r5) 
sta rO,tmlock(r5) 
jmp hiblk 


jrest is low-duty path 
;delete this when it’s a back host 


zrelease this tm blk 
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;found a free tm blk 


59E6 305C 0030 mg0O7: sta r5,hioldb(r4) 


S59EA 7O06B 0006 Ilda r6,trdsti(r3) 

S59EE 306D 6932 sta rG6,tmimp(r5) 

SSF2 706C 0028 Ida r6,hihost(r4) 

S9F6 306D 6934 sta r6,tmhost(r5) 

5SSFA 7O6C OO2A Ida r6,hihand(r4) 

59FE 306D 6936 sta r6,tmcti(r5) 

5A02 706D 6938 lda r6,tmmess(r5) 

SAO6G 4AG68 0010 add rG,=luseo :new use of this blk 

SAOA 4B68 OOFO mg21: and r6,=luse+<O*tage>+<O*messno> 

SAOE 306D 6938 sta r6,tmmess(r5) 

5A12 4868 40FF Ilda r6,=tminit+ HFF 

5A16 306D 693A sta r6,tstate(rs) 

5A1A 786C OO01D Idab r6,holhn(r4) ;which local host I am 
5A1E 306D 693E sta r6,tmstp(r5) ;itmstop.tmalt,.tmihn 
5A22 300D A930 sta rO,tmlock(r5) , 
5A26 4078 39B0 jsb r7,getfre ;watch htemp7 

SA2A 4878 5000 lda r7.=qertyptpribit ;for typh 

SA2E 307E 0002 sta r7,typh(r6) 

5A32 707C 0030 Ilda r7,hioldb(r4) . 
5A36 7O3F 6932 Ida r3,tmimp(r7) ;destination IMP number 
SA3A 9B29 bm mg23 ;dest IMP died 

S5A3C 303E O00C sta r3,dsth(ré6) ;where to reply to 
5A40 7038 62E2 Ida r3,mine ;my IMP number 

5A44 303E 0006 sta r3,srch(ré6) ; into buffer 

5A48 783F 6939 ldab r3,tmmesst+1(r7) ;;luse, age 

SA4C AGB4 srl r3,4 ;position luse to low-order 
SA4E 7C3F 6936 iorb r3,tmcetl(r7) y;handling type 

5A52 383E OOOE stab r3,midh(r6) imidh left half 

SA5G AGF4 srl r7,4 :block num to right 

SA58 387E OOOF stab r7,midh+i(r6) ;midh right half 

5A5C 4889 Ida r3,=gabtyp ;get-a-block 

SASE 303E OOOA sta r3,pkth(r6) ;pkt cod in pkth i 
S5AG2 4078 5A96 jsb r7.fndhac ifind the hac words 

SAG6 301E 0010 sta ri,data(r6) 

SAGA 701D 40D0 Ida r1,haccom(rs) 

SAGE SO1E 0012 sta ri,datat+2(r6) 

SA72 4816 Ida ri,r6é 

5A74 4838 0014 Ida r3,=<data+4> 

5A78 4868 O2F8 Ida sp,=Istack 

SA7C 4078 17C8 call Ipeksubr ;calculate checksum 

5A80 3039 0004 sta r3,chkh(r1) :and stick it in packet 

5SA84 4861 Ida r6.r1 

5A86 4078 2B90 jsb r7.,qvtskm >now put it into store-and-forward 
5ABA SAGE bz mgI1S ;timed out, give up tm blk 
S5A8C 4078 131A mg23: call of lshb.whhi ;Qive it up, tsk has -it 
5A80 2000 


5A92 4008 2DD8 tr mgOO 
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page HLCode 


;subroutine to test transmit msg block 
sreturn if fail, go to main line via hisav7 


2E42 4F58 FCOF mgtest: tst r5,= HFCOF :;rmnum tmnum rmien tmlen ;*$ 


2E46 9AO03 bz .+G 7*$ 

2E48 E611 Trap 3021,<;:illegal message blk in hi - page 262> 
2E4A 901C br mtest2 +f: 

2E4C 706D A930 Ida rG6,tmiock(r5) 

2E50 SAFE bz .-4 

2E52 706B 0006 lda r6,trdsti(r3) ;dest IMP # 

2E56 766D 6932 cmp r6,tmimp(r5) 

2E5A 8112 bne mtesti 

2E5C 7O6C 0028 lda r6,hihost(r4) :dest,,srce host #s 
2EGO 766D 6934 cmp r6,tmhost(r5) 

2E64 810D bne mtesti 

2E66 786C O001D Idab rG,holhn(r4) smy source host # 
2E6A 7E6D 693F cmpb r6, tmihn(rs) 

2EGE 8108 bne mtest1 ;different IMP in me 

2E70 7O6C OO2A lda r6,hihand(r4) shandling type 

2E74 756D 6936 eor r6,tmetl(rs) 

2E78 4B68 FOOO and rG,=gethan 

2E7C SAO04 bz mg1iO ;this is the right block 
2E7E 300D AS30 mtesti: sta rO,tmlock(r5) 

2E82 4007 mtest2: jmp (r7) 


2E84 305C 0030 mgi0: sta r5.hioldb(r4) 


2E88 707D 693A Ilda r7,tstate(r5) 

2E8C 890A bno magi istill busy 

2E8E A3SF1 rit PTF :interesting bits to odd, sign 
2E90 992C bo mg22 . ritmrset ;block was reset 

2E92 8BOA bnm mg12 ;itminit ;block not being init 
2E94 706D 6938 Ilda r6,tmmess(r5) 

2E98 4FEC tst rG,=ageO* HC 

2E9SA 9AO03 tnz mg21 ;resend get-a-block 

2ESC 4008 SAOA 

2EAO 300D A930 mgit: sta rO,tmlock(rs) iwait, then try it again 


2EA4 9001 tr mgO9 
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;more of mgtest subr 


2EAG 707D 6G93E mgi2: Ilda r7,tmstp(rs) 7; tmstop 

2EAA SBFB bm mg11 ;if stop bit is on wait 
2EAC 781D 693B ldab ri,tstate+i(r5) e 

2EBO A691 srl ri,1 

2EB2 381D 693B stab ri,tstate+1(r5) 

2EB6 4893 lda ri1,=msto_- H8 ;set inc q timer 
2EB8 3C1D 693A iorbm ri,tstate(r5) 

2EBC 701D 69338 Ida ri, tmmess(r5) 

2ECO 4873 0100 Ilda r7,=messO(r1) ;iner mess num 
2EC4 4FFC tst r7,=ageO* HC ;reduce age to 4 (or nop) 
2EC6 SA03 bz mg13 ;still young 

2EC8 4CFF ior r7,=age 

2ECA 49FB sub r7,=age-<ageO'4> 

2ECC 307D 6938 mgi3: sta r7,tmmess(r5) 

2EDO 702D 6936 Ida r2,tmcetl(r5) 

2ED4 300D A930 sta rO,tmlock(r5) 

2ED8 4B28 OFOO and r2,=fuse ;foreign use for pkth 
2EDC AGD4 sri £54 

2EDE 4818 FFOO and ri,=messno 

2EE2 4C15 for: rts ; local tm block #4 

2EE4 408C OOOA jmp @hisav7(r4) 

2EE8 8BDC mg22: bnm mat :block was being reset: wait 
2EEA 707D 693C lda r7,tmdeds(r5) ;dead status 
2EEE 782D 6938 Idab r2,tmmess(rs) ;and subtype 
2EF2 300D A930 sta rO,tmlock(rs) 

2EF6 4008 2ADE jmp hidead :send reply(ies) 

FCOO 0400 page Warm 


;set up hac stuff for get-a-block and raw packets 
;returns ri:hacmem, r5:offset to hacs 


SA9G 701C 0028 fndhac: Ida ri,hihost(r4) ;both callers need this 
5A9A 301E 0008 sta ri.,seqh(r6) 

5SASE 781C OO1D Idab r1,holhn(r4) 

SAA2 4998 sub r1,=nfh*words ;use real number, minus if fake 
5SAA4 A398 rll ori, H8 ;Swap bytes : 
SAAG 7418 62E2 ior ri,mine ;low bits FF if Fake 

SAAA 4858 0010 Ilda r5,=Ihaccs ;how many specials 

SAAE 561D 40EO cmp ri,hacspe(-r5) 

SAB2 9102 be .+4 ;got a match 

5AB4 88FD bnip .-6 ; look more (first is default) 
5AB6 70i1D 40CO Ida r1,hacmem(r5) 


SABA 4007 jmp (17) 
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SABC 
5ACO 
SAC4 
5AC6 
SACA 
SACE 
SAD2 
5SAD4 
5SAD6 
SADA 
SADE 


SAE2 
5SAEG 
SAEA 
SAEC 
SAEE 


SAF2 
SAFG 


SAF8 
SAFC 
SAFE 
5B02 
SBO6 
SBOA 


4438 
4E38 
B11A 
3008 
307C 
4078 
8A06 
E690 
4878 
307C 
7O7C 


4838 
7O1C 
4E92 
9103 
4A38 


7018 
SAFE 


781B 
8AEO 
4818 
3018 
3008 
4007 


0010 
8F50 


A4A8 


0008 
2B3A 


0258 
000C 
0008 
8910 
0002 
0020 


A4A8 


OO00D 


4080 
OOOD 
A4A8 
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sallocate a free transaction block 


stn: 4 


trnpt2: 


trnpt4: 


trnput: 


trnpti1: 


out:r4 host,r3 pntr to block,r5 unchanged,others smash 


add 
cmp 
bne 
sta 
sta 
jsb 


bnz trnpt4 


r3,=trnl ;next slot 
r3,=trnbilk+trntot 

trnpti ;back for more 
ro, trniok 

r7,htemp7(r4) 

r7,hiwm 


;if hitt=O we are blocked 


Trap 3220,<;Host blkd awaiting trnbIk - page 264> 
r7,=seci5 ;take another shot at it 


lda 
sta 
lda 


Ida 
Ida 


r7.hitt(r4) 
r7,htemp7(r4) 


r3.=trnblk 
ri,hostyp(r4) 


if ri <> #hosfake 


add r3,=2ttrnl 
endif 


lda 
bz 


ri,trniok 
ans 


ldab ri.trstat(r3) 


bnz trnpt2 
ri1,= H4000+ttresv 


lda 


3:VDH ; fake? 
;no, use first two slots 


;else reserve 2 slots for DDT 


;this trn blk busy 


;block now belongs to HI 


sta ri,trstat+<O'ttrntim>(r3) 


sta 
jmp 


ro, trniok 
(r7) 
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SBOC 
5B 10 
5B12 
5B16 
SBA 
SBIiE 
5B22 


2EFA 
2EFE 
2FO2 
2FO4 
2FO8 
2FOC 
2FOE 
2F12 
2F16 


2F18 
2F1iC 
2F1E 
2F22 
2F24 
2F28 
2F2A 


2F2C 
2F30 
2F34 
2F38 
2F3C 


752B 
4BAF 
352B 
381B 
4818 
301C 
4007 


7OS5C 
701D 
SAFE 
701D 
4F18 
SA06 
4918 
301D 
49F2 


7018 
SBO4 
7618 
8104 
7018 
9002 
489A 


7D1D 
4B18 
3D1D 
300D 
400F 


0008 


0008 
0003 
0078 
lejeleles 


0030 
A930 


693A 
3C00 


0400 
693A 
12EA 
62E2 


12E8 


693E 
OO3F 
693E 
A930 
0002 
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;Give our Host a 2-wd message 


:Enter at hierc with ri/reply type, r2/dead host status 


hierc: 


eor r2,trmidl(r3) ;Save subtype in midl leader 
and r2,=subtyp 

eorm r2,trmidl(r3) 

stab ri,trtypl+1(r3) ;Save reply type in leader 
Ida ri.=sec3 

sta ri,hitt(r4) ;give us a little time 

jmp (r7) 


;Get our HOST an allocate 
;skip return on failure., tstate in ri 


page HLCode 


tallyg: 


lda r5,hioldb(r4) 
lda r1,tmlock(r5) 
bz .-4 
lda ri,tstate(rs5) 
tst r1,=tmall 
ifnot zero :;found an allocate 
sub ri,=tmallo 
sta ri,tstate(r5) 
sub r7,=2 
endif 
Ida ri.ingimp 
if minus } ri = mine ;this IMP get extra allocate? 


lda ri.,Ingall :yes, get its value 
else ;no, use default 

Ida r1,=iniall 
endif 
eorb ri,tmstp(r5) 
and ri,=tmalt 
eorbm ri, tmstp(r5) 
sta rO,tmlock(r5) 
imp 2(r7) 


;set timer field 
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hothru - accumulate host throughput. 


This routine is called both by IH and HI, to add in 
the throughput contribution of a given message to the throughput 
totals for a given host. 


Call with: 
Tdab ri,pkth+1 ;number of packets in this message. 
Ilda r3,<number of worcis> 
lda r4,<host blk> 
jda r5,<source/destination IMP word> 
call hothru 
htpmfn/htpmtn ;for IH and HI respectively. 


FCOO 0400 Page Warm 
routine hothru, local ri-r2, inline r2. local r4-r5, arg ri, 
5B24 1076 
5B26 1016 
5B28 1026 
SB2A 1046 
5B2C 1056 
5B2E 6027 
5B30 307E 0008 
5B34 4A42 add r4,r2 ;pointer to throughput stats 
5B36 A694 srl ri,4 77 pktnum 
5B38 4A91 add ri,=i 70-7 goes to 1-8 
5B3A 323C 0010 addm r3,htpwti-htpmtn(r4) ::htpwFi 
S5B3E A2D1 sli r5,14 
5B40 705SD 72FC Ida r5,spfrut(rs) ;for us test 
5B44 4B58 800F and r5,=routef+spfded 
5B48 8A02 if zero ris this from/to us? 
SB4A 4AC8 add r4,=htppfl-htppfn :select "to/from local" 
endif 
5B4C 321C 0004 addm ri,htpptn-htpmtn(r4) ;count packets. 
5B50 8403 if carry ;overf low. 
5B52 311C 0004 subm r1,htpptn-htpmtn(r4) 
endif 
5B56 4891 jda ri,=1 ;count messages. 
5B58 3214 addm ri,(r4) 
SBSA 8402 if carry ;overflow. 
5B5C 3114 subm ri1,(r4) 
endif 
5B5E 6056 endroutine hothru 
5B60 6046 
SB62 6026 
5B64 6016 


5B66 6006 


arg r3-rs 
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5B68 
5B6C 
5B70 
5B72 
5B76 
5B78 


SB7A 
SB7E 


5B80 
5B84 
5B88 
5SB8A 
SB8C 
5B8E 
5690 
5B92 
5B94 


5B96 
5B98 
5B9C 
5BAO 
5SBA2 
5SBA4 
5BA8 
SBAC 
SBAE 
5SBB2 
SBB6 
5BB8 


5SBBA 
SBBC 
SBBE 
5BC2 
5BC6 


0001 
3068 
4868 
1076 
4078 
6076 
6066 


781C 
8A2B 


703C 
781C 
8A07 
4823 
4BAF 
4EA3 
8103 
4DB3 
4893 


A298 
702C 
4B28 
A3A2 
4C12 
702C 
4828 
4C12 
782C 
4E28 
9202 
4AA4 


A2A6 
4C12 
741C 
4B68 
4C6C 


O2F6 
O2F6 


0012 
Ocoo 


0014 
8000 


0015 
OOFC 


PAGE 29 er warm page ttt 


2*** warm th * 
; leader send 


routine ihlsn, nosave 
-IF NZ VHA 
sta r6,]stack-words >"push" old R6& 
lda sp,=lIstack-words 
save r7 . 
call ihvha ;change leader in place 
restore r7 
pop r6é 
.ENDC 
ihcum?: ;cum stats hook. 
ldab r1,homode(r4) :decide on n/o format 
if zero 
;convert to old format 
lda r3, ihledr+midi(r4) 


Idab ri,ihledr+typl+1(r4) ;message type 
if zero : 
Ilda r2,r3 
and r2,=subtyp 
if r2 = =rawpkt 
eor r3,=rawpkt ;clear subtyp field 
Ilda r1,=rawpkt 
endif 
endif 
sll ri, D8 33: ihcode 


Ida r2,ihledr+typ1l(r4) 
and r2,=trebit}octbit 

P17 2:2 

tor’ inf n2 

Ilda r2, ihledr+thsti(r4) 
and r2,=priled 

tor ri,r2 :igetpri 
Idab r2,ihledr+hstl+i(r4) 
if r2 >= = H100-nfh 


add r2,=nfh ;;frmimp 


endif 

stl m2..6 

ior HT." :i:srceh 

ior ri, ihledr+dstl(r4) tisrcei 
and r6, =hendf ;preserve eom bit 


ior r6,=ihledr+2(r4) 
; (OVER) 


roo 
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SBCA 39001 entry ihls, nosave 
SBCC 301C 0010 sta r1,ibledr(r4) 
5BDO 303C 0012 sta r3, ihledr+2(r4) 

endif 
SBD4 705C 0020 lda r5, iobloc(r4) 
5BD8 483C 0010 Ilda r3,=ihledr(r4) 
S5BDC 4B38 1FFE and r3,=packm 
SBEO AGB4 srl r3,4 
5BE2 7438 OODO ior r3,mapvar 
5BE6 303D 0008 sta r3,starto(r5) 
SBEA 4816 Ida ri.r6 ;end pointer 
5BEC 4868 O2F8 Ida sp,/#/\stack ;get a stack 
5SBFO 1076 push r7 ;save our caller 
5BF2 482C 0010 Ida r2,=ihledr(r4) :;VDH ;watch H2V hack 
5BF6 707C 0002 lda r7,hostyp(r4) snow, what type host? 
SBFA 40FF 12CA call @hotable(r7) ;call the right handler 
SBFE 301D OOOA sta r{1,endo(r5) ;finally, start output 
5CO2 6076 pop r7 ;restore caller 
5CO4 4807 endroutine ihlsn/ihls 
FCOO 0400 Page Warm 
5CO6 1076 routine ihdump, arg r5, uses ri-r3 
repeat 

5C08 4815 lda ri,r5 ;head of queue. 
5COA 4078 154A call deque,whih ;get next thing from queue 
5COE 0040 
5C10 9A04 until fail rnothing left. 
5C12 4078 SC1A call ihdmpb ;dump this buffer 
5C16 SOF9 endrepeat 
5C18 6006 endroutine ihdump 
5CiA 1076 routine ihdmpb,arg ri-r2/m2 
5CiC 48F3 lda r7,=inmtyp : incomplete message. 
5SC1E 3479 OOOA iorm r7,pkth(r1) 
5C22 7078 OOD2 Ilda r7,mapv2 
5C26 3078 FCO4 sta r7,%map2 
5C2A 7078 B26C lock lockihtfakeh3 
5C2E SAFE 
5C30 30A8 7272 sta r2,@ehqtfakeh3 ;queue packet on discard. 
5C34 3028 7272 sta r2,ehqtrfakeh3 
5C38 3008 B26C unlock lockiht+fakeh3 
5C3C 6006 endroutine ihcdmpb 
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2F40 
2F44 
2F46 
2F48 
2F4C 
2F4E 
2F50 
2F54 
2F56 
2F5A 
2F5C 
2F60 
2F62 
2F64 
2F66 
2F68 


2F6A 
2F6E 
2F72 
2F74 
2F78 
2F7A 
2F7C 
2F80 
2F82 
2F84 
2F88 
2F8A 
2F8E 
2F90 
2F94 
2F96 
2F9A 


2F9C 
2F9E 
2FA2 
2FAG 
2FAA 


782C 
9A11 
49A1 
786C 
A2E4 
4836 
764E 
910B 
4968 
8B03 
4868 
4E36 
81F7 
E6D8 
4AF2 
SO1F 


481C 
6O03E 
2031 
4E1Cc 
81FB 
49EA 
T81E 
4E97 
810D 
TO1E 
SAOA 
3O1E 
4896 
381E 
4890 
381E 
3008 


4890 
SO1E 
SO1E 
382C 
4007 


OOSE 


405F 


891E 
0010 
0630 


0010 
8910 


OO1A 


8913 


891A 
8918 
8913 


8914 


891E 
891C 
OOSE 


PAGE 31 *** warm page '** 


page HLCode 
;get a leader for a host. 
;copy leader words into the host 
;skip 2 if there are none. 


ledget: Idab r2,nxtled(r4) ;get next leader, if any 
bz ledgG ;none to be found 
sub r2,=1 , 
ldab r6,nxtled+1+foo(r4) :get just trnblk offset 
sll r6,4 
Ida r3.r6 ;and init limit for search 
ledg3: cmp r4,trhost+trnbIlk(r6) iright for this leader? 
be ledg! :yes, a winner 
sub r6,=trnl ;to next trn bik 
bnm ledgd :not too small 
ida r6,=trntot-trnl :last in table 
ledg4: cmp r3,r6 ;done search? 
bne ledg3 :no, look more 
Trap 3330,<;ih lost a trnblk - page 269> 
ledg6: add r7,=2 ;and fail return 
br ledg8 
lgcum: ;cumstats hook. ; 
ledgi: Ida ri,=ihledr(r4) ;copy leader to host blk 


ledgO: Ida r3,trnetl+trnbik(r6)+ 
sta r3.(ri)+ 
cmp r1,=ihledr+mid)+2(r4) 


bne ledgod 

sub rG,=mid!+2 

Idab ri,trtypl+trnblk+1(r6) ;what is reply 

cmp r1,=cdestd ;dest dead? : 

bne ledg5S ;nope, no bother 

® Ilda ri,trnbik+trdeds(ré6) tany reason? 

bz ledg5S ;no, proceed normally 

sta ri.trmidi+trnblk(r6) ;host status in messid/subtyp 
Ida ri,=chstat ;host dead status 

stab ri,trtypl+trnbik+1(r6) ;new state 

Ilda ri,=0O 

stab ri,trhstl+trnbik(r6) ;clear these bits for host 
br ledg7 ;no change count 


ledgS: Ida ri,=0 

sta ri,trhost+trnblk(r6) 

sta ri,trntim+<Ottrstat>+trnbik(r6) 
ledg8: stab r2,nxtled(r4) 
ledg7: jmp (r7) 
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Fok oGer Fopus fttott ttt 


process packets for us 
enter from task at forus. _ 
registers: r2/ pkth to begin with, then gets bits: 
mesnxt - this mes next to go 
mesout - mes out of range 
meseen - this mes in last 8 
hostng - host is running(O) or not(1) 
r4/host param block 
r5/message block 
r6/packet buffer pointer 
r1,3,7/various 


enter with r2/chain pointer,rG/buffer pointer 
task variables in local so not locked 


2FAC 3028 O27E forus: sta r2,tskbuf ;won’t be needing it 
2FBO 7O1E 0002 lda ri,typh(r6) ;check for raw packets 
2FB4 4B18 COOO and ri,=paktyp 

2FB8 8A08 bnz notraw 

2FBA 7O1E OOOE Ida ri.midh(r6) 

2FBE 4B9F and r1,=subtyp 

2FCO 4E93 cmp ri, =rawpkt 

2FC2 8103 te gudraw 


2FC4 4008 33A6 
2FC8 702E OOOA notraw: Ida r2,pkth(r6) 


;check transmit or receive message block 


2FCC 48DO0 Ida r5,=0 
2FCE 4FA4 tst r2,=trnrep 
2FDO SAO03 ifnot zero 7a reply, use tmblks 
2FD2 4858 0380 lda r5,=tmbilks-rmblks 
endif 
2FD6 787E O009 ldab r7,fblock(ré6) imy block 
2FDA 4E78 0038 cmp r7.=rmnum pa tmnum 
2FDE 9203 tng biker2 ;block number too high 
2FEO 4008 30EC 
2FE4 A2F4 sli r7y4 pirmlen tmlen ;* times 16=bl1k length 
2FEG6 4A57 add r5,r7 
2FE8 707D ASBO lock rmiock(rS) ;:tmlock ;lock the block 
2FEC SAFE 
2FEE 707D 65B2 Ida r7.rmimp(r5) >: tmimp 
2FF2 767E O006 cmp r7,srch(r6) 
2FF6 8179 bne blikerr ;wrong sender 
2FF8 7O7D 65B8 Ilda r7,rmmess(r5) :;tmmess ;get my use number 
Q2FFC A2F4 sll r7.4 ;position in foreign use position 
2FFE 4B78 OFOO and r7.=fuse 
3002 4D27 eor r2,r7 ; incoming use number 
3004 4F28 OFOO tst r2,=fuse ymatch? 


3008 8A70 bnz blkerr ;wrong use 
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300A 
300E 
3012 


3016 
301A 
SO1E 
3022 
3026 
3028 
302A 
302E 
3032 
3034 
3036 
3038 
303A 


3O3E 
3042 
3046 
3048 
304A 
304C 


3050 
3052 
3054 
3056 
3058 
305A 
305C 
3O5E 


3060 
3062 
3064 
3066 


3068 
306A 
306C 
306E 


784D 
4818 
4078 


4C28 
703D 
4C38 
713E 
A4B8 
SAOB 
4028 
487B 
SBO6 
4EFF 
9C04 
AGF2 
752F 


3028 
7O1E 
4872 
4BFF 
A2F 1 
408F 


3454 
33CE 
3368 
337E 
S1AE 
3108 
3192 
31D4 


3070 
329C 
5SC3E 
3298 


3182 
5C74 
3192 
5C60 


65B5 
FFFF 
36EE 


0800 
65B8 
OOF F 
0008 


ocoo 
0007 


36A6 


0284 


OOOE 


3050 


PAGE 33 *** warm page +** 

;got message block. set up host status 
Idab r4,rmhost+1(r5) > local host 
Ida r1i,=-1 ;assume hac ok. so r3 is irrelevant 
jsb r7,hostnm 


;Check message number 
yrange (want - got): 


s Cine out of range high 

3 71 - -7 (no bit) in next 7 (legal trans) 

a next to go (legal trans or inc trans) 
c1-=s seen in last 8 (legal reply or inc trans) 
: oF out of range low 


ior r2,=mesnxt j;assume have next to go 
lda r3,rmmess(r5) 

ior r3,= HFF 

sub r3,seqh(r6) :one we got 


sra r3, D8 

bz forus4 ;we got next to go 

eor r2,=mesnxt+mesout ;assume out 

lda r7,=7(r3) 

bm forus4 ;out of range high 

cmp r7,= HF 

bl forus4 ;out of range low 

SFT 7.2 

eor r2,mestst(r7) ifix for seen, out 


;Set up for trn dispatch 
7r5/my block, r3/messno offset 


forus4: sta r2,tskbts ;remember state bits 
lda ri,midh(r6) ;his block 
lda r7,r2 ;get copy of pkth 
and r7,=pktcod ;just its type 
Sit vets ;words-bytes 
jmp ®fordis(r7) ;dispatch on message type 
fordis: fmess, freq, fgvb,fincm :regular, request, giveback, incomplete 
frfnm, frfal, fdead, finer ;RFNM, RFNM/alloc, dead RFNM, 
; inc RFNM 
fincq, fgetb, freset, fbad :ine query, get blk, reset blk, 
; (nothing) 
foutof, fgetr, fresrq, fresrp ;out of range, get bik reply, 


;reset request. reset reply 
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;Got an incomplete query. 
;Try to recover as well as possible 
;a5/my block 


3070 4078 379A fineq: jsb r7,regch2 ;some reg mess checks 
3074 4F28 0400 tst r2,=mesout ;totally out? 
3078 8A35 bnz sndout vyes, send out-of-range 
307A 4F28 0200 tst r2,=meseen ;in last 8? 
SO7TE 8A12 bnz chkdup ;yes, see if we can send dup! reply 
3080 4F28 O800 tst r2,=mesnxt ;incq on next to give host? 
3084 Q9A2F bz sndout ;no, too far in future. ' 
3086 E7C8 Trap 3710,<;Sending incomplete reply - page 272> 
3088 4F92 tst: rt.=2 
308A 9AO03 tnz inctro ;in msg state 
308C 4008 3390 
3090 707E 0002 Ilda r7.typh(r6) 
3094 4F78 0400 tst r7,=alloc ;for multi packet case? 
3088 8A03 tz incm1 7no 
308A 4008 33A0 
SO9E 4008 3386 tr inetri 
30A2 702D 65BC_ chkdup: Ilda r2,rmtype(rs) 
3OA6 AG23 srl r2,r3 
30A8 4BA3 and r2,=3 ;nominal message type 
3OAA 4E90 if ri = =O 
SOAC 8113 
SOAE E7CS Trap 3705,<;Sending duplicate reply - page 272> 
30BO 4AA4 add r2,=trnrep ;Fix for how reptab works 
30B2 4883 Ilda r3,=3 ;assume hilhd=3 
30B4 4ECO ifnot r4 < =O } deadse(r4) 
3OB6 9208 
30B8 707C O02C 
3OBC 8A05 
SOBE 783C OO1F Idab r3,hihd(r4) :get hihd now 
30C2 4C38 FFEO jor r3,= HFFEO 7; time=unknown 
endif 
30C6 303E 0010 sta r3,data(r6) ;put in dead status 
30CA 48B0 Ilda r3,=0 :0 subtyp so not raw 
30CC 303E 0002 sta r3,typh(r6) :qer type -> reg type 
30DO SO00A else 
30D2 4E93 if rif = =3 } ri = =2 & r2 = =O 
30D4 9105 
30D6 4E92 
30D8 8105 
3ODA 4EAO 
30DC 8103 . 
3ODE 4008 3270 tr Faqok ;things will progress, ignore. 
;msg is in reply state or is current msg. 
endif 
sndout: 
S3OE2 E7C1 Trap 3701,<;Sending out-of-range - page 272> 
endif 


30E4 4008 31F2 tr replyx 


/ 
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IMP .WARM; 1 PAGE 35 *** warm page *** 
;here if no message block 
;getblks are legal sometimes 
;a5/my block 
30E8 300D ASBO blkerr: sta rO,rmlock(rs) 
SOEC 4BAF blker2: and r2,=pktcod :what type packet? 
3OEE 4EA9 cmp r2,=gabtyp j;a get-a-block? 
30FO 8103 bne bikers snot a cqetblk 
30F2 4008 32A0 jmp bikget :it’s a get-a-block 
3O0F6 4878 4500 biker5: Ida r7,= H4500 ;bits 8 (ineq).10 (reset b),14 (reset r) 
SOFA A672 sri r7.n2 ;get one of these bits? 
SOFC 93903 bo blker6 :yes, try to recover 
‘ Trap 3100,<;Block error, no recovery - page 273> 
3OFE 4008 326E fqokju: jmp fqoku 
3102 701E OOOE bliker6: Ida ri.midh(r6) ;foreign IMP block # 
: Trap 3101,<;Block error, trying recovery - page 273> 
3106 SO7A br replyu ;send out-of-range, reset reply, reset 
:Got a allocate (+ implicit RFNM if multi-packet) 
;here with r3/no. we want-no. we got, r2/flags. 
7r4/host, r5/tmb1k, r6/buffer 
3108 4078 37EE frfal: jsb r7,repchk ;common reply/rfnm checks 
310C 4078 3920 jsb r7.ftrngt yarg: r6/buffer,r5,returns r6 
3110 E642 Trap 3102,<:No trnblk for alloc - page 273> 
3112 9OS5E br rfdone yah well} 
3114 4F92 tst rf,=ttmult ;multi-packet sent? 
3116 SA16 bz rfali ;was i-pkt req 
3118 4F94 tst ri,=ttreq 
311A 9AO04 bz rfaléad ;was a message 
311C 3D1B OOOD eorbm ri, trstat(r3) ;release trnbik 
3120 9005 br rfal8c 
3122 4078 3806 rfal8d: jsb r7,rfledp :send our host the rfnm 
3126 4078 3824 jsb r7,ledpc 
312A 48F4 rfal8c: Ida r7,=tmall0/ H100 
312C 3A7D G6SBA addbm r7,rstate+<O"tstate>(r5) 
3130 4078 385A jsb r7,repfix ;mark rfnm in tern mes bits 
3134 4844 Ilda r4,r4 
3136 SBE4 bm faqokju 
3138 783C OOOF ldab r3,hinpid(r4a) 
313C 30B8 OOAC sta r3,@pid 
3140 SODF br fqokju 


697 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 276 
IMP .WARM; 1 PAGE 36 **' warm page *** 

;got a one-packet allocate 

;put stop bit in tran mes blk 

;mark tran blk to retransmit message 


3142 4B94 rfali: and ri,=ttreq :request outstandina? 
3144 9A1D bz rfalie 7;no, must be duplicate 
3146 3D1B OOOD eorbm ri,trstat(r3) ;turn off ttreq. 
314A 702B OOOE lda r2,.trpack(r3) ;packet to really send 
314E 352B OOOE eorm r2,trpack(r3) ;clear it out 
3152 300D ASBO sta rO,rmlock(rs) 7: tmlock 
3156 4078 14FC call ounpck,whhi 
315A 2000 
315C SAOF bfail rfalif 
315E 7079 OOOA Ida r7,pkth(r1) 
3162 4BFF and r7,=pktcod ;present type of packet. 

0000 -lif nz regtyp 

sub r7,=regtyp 

3164 3279 0004 addm r7.chkh(r1) 
3168 3179 OOOA subm r7.pkth(r1) . 
316C 48FO Ilda r7,=0 
316E 3079 0092 sta r7,inch(r1) 
3172 4078 146C call wheorb,whhi+whtsk 
3176 2001 
3178 9077 br rfalix 
317A EGCA rfalif: Trap 3312,<;Bad trnblk buffer - page 274> 
317C 9079 br fqoku 
317E E650 rfalie: Trap 3120,<;Got a duplicate Allocate 1 - page 274> 


3180 9078 br fqok 
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IMP .WARM; 1 


3182 4078 37EE 
3186 E7CO 
3188 4878 8000 
318C 307D 6S5SBA 
3190 902C 


3192 701D 65B8 
3196 4FSC 
3198 9A04 
319A 4C9OF 
319C 301D 65B8 
31AO0 4E78 OOIC 
31A4 9166 
31AG 4878 0080 
31AA 3C7D GSBE 


31AE 4078 37EE 
31B2 4078 3920 
31B6 E643 

31B8 SO0B 

31BA 306B OOOA 
31BE 4078 3806 
31C2 4868 O2F8 
31C6 4078 18C6 
31CA 4078 3824 
31CE 4078 385A 
31D2 9096 


31D4 4078 37EE 
31D8 4078 3920 
31DC E646 
31DE SOF8 
31EO 7818 0003 
31E4 SAED 
31E6 QSOEE 


PAGE 37 t+* warm page 't* 


;Got an out-of-range reply 
;reset if its in range 


foutof: jsb r7,repchk ;common reply checks 
Trap 3700,<;Got an Out-of-range - page 275>. 
Ida r7,=tmrset 
sta r7,rstate+<O*tstate>(r5) 


br replyb ;send reset right away 
fdead: ;got Dead RFNM 
fresrq: ;got a reset request 
Ilda ri.,rmmess(r5) 7; tmmess 
tst ri,=ageO* HC 
bz frraqt ; too young 
ior ri,=age 
sta ri,rmmess(r5) >; tmmess ; 
frrqi: cmp r7,=rrqtyp*2 
be faok sback will reset 


lda r7,=tmstop ;really fdead, set stop bit. 
iorbm r7,tmstp-tmbl kstrmblks(r5) 


frfnm: ;got Regular RFNM 
jsb r7,repchk ;common checks 
jsb r7,ftrngt iget our tran block 


Trap 3103.<;No trnblk for RFNM or dead RFNM - page 275> 


br rfdone 

sta r6,trdeds(r3) ;note correct dead status 
rfnmO: jsob r7.rfledp 
rfnmi: da sp,=lstack j;sp needed by trnfls 


call trnfls ;don’t need the packet any more 
jsb r7,ledpe 

rfdone: jsb r7,repfix :mark mess done 
br fgokju 


;Got an Inc RFNM 
;If we originated, do ledpO, else like other RFNM’s - 


finer: jsb r7,repchk ;commotry checks 
jsb r7,ftrngt ;find tran block , 
Trap 3106,<;No trnblk for inc RFNM - page 275> 
br rfdone ;sigh 
ldab ri,trtypl+i(r3) zany reply yet? 
bz rfnmo 7no, use common exit 


br rfnmi snow join main path 
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31E8 
31EC 
31EE 
31F2 
31F6 
S1FA 
S1FE 
3202 
3204 
3208 
320C 
3210 
3214 
3218 
321A 
321C 
321E 
3222 
3226 
322A 
322C 
322E 
3230 
3232 
3234 
3238 
323C 
323E 
3240 
3244 
3248 
324C 
3250 
3254 
3258 
325A 
325E 
3262 
3266 
326A 


783E 
A2B8 
7C3E 
701D 
300D 
381E 
4B18 
4BAF 
7TC1A 
S3O1E 
3O3E 
7028 
4078 
63E4 
803D 
4836 
4828 
732E 
4C28 
48390 
2013 
2023 
2013 
7073 
7O02E 
3O7E 
2023 
4816 
4838 
4868 
4078 
3039 
7028 
3528 
48FO 
30793 
7078 
3078 
300A 
4078 


OOOA 


0009 
65B6 
ASBO 
0003 
OFOO 


3696 
OOOA 
OOOE 
O27E 
266C 


4300 
0002 
1000 


O00Cc 
oooc 


0014 
O2F8 
17C8 
0004 
O27E 
O27E 


o003s2 
ooD2 
FCO4 
0350 
14AA 
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;make a reply from a message 
:ri/for blk,use,r2/pkth,a3/new midh,a5/mes blk.a6/buffer 


replyb: 


replyx: 


replyu: 


rfalix: 


Idab r3.pkth(r6) ;use number 

sll r3, D8 . 
jiorb r3,seght+i(r6) sand block of source 
Ida ri,rmeti(r5) 

sta rO,rmlock(r5) sunlocks 

stab ri,seqh+1(r6) ihis block 

and ri,=fuse ;his use number 

and r2,=pktcod ;want just incoming code 
jiorb ri,reptab(r2) ;new packet code 


sta ri,pkth(r6) ;to pkth 
sta r3,midh(r6) 
lda r2,tskbuf 


jsb r7.ocmove ;need space from back pool 
cntrs+nbak 

br replos 

Ida r3,r6 ; indexes through buffer 


Ida r2,=hac+noblk+gertyp 

and r2,typh(r6) ;get pkttyp, hac, noblk bits 
jor r2.=pribit ;all replies have priority 
Ilda r1,=0O 


sta r1,(r3)+ ;neth 
sta r2,(r3)+ i typh 
sta ri,(r3)+ ;chkh 
Ida r7.(r3) ;foreign IMP 


Ida r2,dsth(r6) ;what was destination? (me) 
sta r7.dsth(r6) ;dsth 

sta r2,(r3)+ :srch 

lda ri,ré6é 

Ida r3,=datat4 

Ilda sp.=Istack 

call Ipceksubr 

sta r3,chkh(r1) ;stuff it in 

Ilda r2,tskbuf 

eorm r2,tskbuf 

Ilda r7,=0 

sta r7,inch(r1) ;clear inch 

Ilda r7,mapv2 

sta r7,%map2 

sta r0,chan-chain(r2) :set flaag-can’t ack these 
call ttskput 


_ 
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IMP .WARM; 1 PAGE 39 *** warm page *** , 
; Exit routines 
326E 48D1 fgoku: Ida r5,=1 ;no mes blk any more, 
3270 7078 OOD2 faqok: Ilda r7,mapv2 
3274 3078 FCO4 sta r7,%map2 : 
3278 7028 O27E lda r2,tskbuf 
327C SAOG ifnot zero 
327E 4868 O2F8 lda sp,=Istack 
3282 4078 131E call flushb,whtsk 
3286 0001 
endif 
3288 4855 Ida r5,r5 
328A 9903 ifnot odd 
328C 300D AS5BO unlock rmlock(rs) :itmlock 
endif 
3290 4008 108E tr loop 


;reply dropped for no space 


3294 EGOA replos: Trap 3012,<;Reply lost-no space - page 277> 
3296 SOEC br fqoku 


;got a bad packet code 


3298 E645 fbad: Trap 3105,<;:Got msaq w/illegal pkt code 13 - page 277> 
329A SOEB br fqok ;chuck it 


;got a get-a-block message 


329C 300D A5BO fgetb: sta rO,rmlock(r5) 


32A0 48D1 bikget: Ida r5.,=1 :no block yet 

32A2 7O1E 0010 Ilda r{i.data(rs6) ;source hacmem 
32AG 7O3E 0012 lda r3,datat2(r6) ; and haccom 

32AA 4B28 FOFF and r2,=-1?fuse :clear fuse field 
32AE 4078 36EA jsb r7,hostno 

32B2 SAOB bz bikgO ;okay to get a block 

32B4 303E 0010 sta r3,data(r6) ;save dead status 

32B8 701E OOOE lda ri.,midh(r6) ;recover source mes blk 
32BC 48B0 Ilda r3.=0 ;no source block 


32BE 307E 0002 replu2: sta r7,typh(r6) ;mark for got or got-no block 
32C2 909C tr replyu sreply and ack 
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IMP .WARM; 1 


32C4 
32C8 
32CC 
32CE 
32D2 
32D4 
32D8 


32DA 
32DC 
32DE 
32E2 
32E4 
32E8 
32EC 
32EE 
32FO 
32F2 
32F4 


32F6 
32F8 
S2FA 
32FE 
3300 
3302 
3304 


3306 
3308 
330C 
3310 


300D 
TO1E 
48D0 
7O3E 
48F1 
704D 
SBOF 


4E43 
8104 
761D 
9112 
4A58 
4E58 
81F4 
4857 
8911 
E7C2 
SOBD 


4877 
89F6 
704D 
4FCC 
SAF2 
4875 
SOFO 


E7C6 
703D 
4B38 
9024 


ASBO 
OOOE 


0006 


65B2 


65B6 


0010 
0380 


65B8 


65B8 
OOFO 


PAGE 40 '** warm page t*t* 


;now find him a receive block 
;if already have, return dup] got-a-block 
;if no free, ignore 


blkg3: sta rO,rmlock(r5) 

blkgO: Ida ri,midh(r6) ;refetch messid,subtype 
Ida r5.,=O'rmblks 
Ilda r3.srch(r6) 


Ida r7,=1 
blkg4: Ida r4,rmimp(rs) 
bm blkg5 ta free one 


;probably should lock and recheck here 


cmp r4,r3 

bne blka7 ;net same imp 

cmp ri,rmctl(r5) 

be blkg& ;Same foreign block - dup] 


blkg7: add r5,=rmlen 
cmp r5,=rmlentrmnum 


bne blkg4 ;try more 

Ilda r5,r7 

bno bikg! :got free one 

Trap 3702,<:No free rm blk - page 278> 
tr fqoku i 


blkgS: Ida r7,r7 
bno blikg7 ;got spare already- 
Ida r4,rmmess(r5) 
tst r4,=ageO' HC 


bz blkg7 ; too young to use 
lda r7,r5 
br blkg7 ;remember spare 


blkg6: Trap 3706,<;Rcvd dup Get-a-block - page 278> 
Ilda r3,rmmess(r5) 
and r3,=luse 
br blkg2 ;send duplicate got-a-block 
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:initialize up a new receive block 


3312 704D A5SBO blkgi: Ida r4,rmliock(rs) 


3316 SAFE bz and 

3318 704D 65B2 lda r4,rmimp(rs) 

331C 8BD4 bnm bikg3 ;someone else got it 
331E 303D 65B2 sta r3.rmimp(r5) 

3322 7O3E 0008 lda r3,seqh(r6) ; 
3326 A7B8 rrelor3. H8 :dest host from msg is our local 
3328 303D 65B4 sta r3,rmhost(r5) 

332C 301D 6586 sta ri.rmeti(rs) 

3330 7048 0282 lda r4,tskhst 

3334 783C O01D ldab r3,holhn(r4) 

3338 383D G5BF stab r3,rmihn(rs) pinto mes bik 
333C 703D AS5BA Ida r3,rstate+foo(rs) 

3340 703D ASBC Ida r3,rmtypetfoo(rs) 

3344 703D 65B8 Ida r3,rmmess(r5) 

3348 4A38 0010 add r3,=luseO 

334C 4838 OOFO and r3,=luse 

3350 303D 65B8 sta r3,rmmess(r5) 

3354 300D A5BO sta rO,rmlock(r5) ;done setup 
3358 303E 0008 bikg2: sta r3,seqh(r6) :clear 1th of this word 
335C A2B4 sll r3,4 ;to fuse position 

335E AGD4 SFT FS. 4 zmy block number 

3360 4C35 ior r3.r5 imaking up midh word 
3362 4878 4000 Ilda r7,=qertyp ;successful got-a-block 


3366 SOAC br replu2 :go for getblik reply 
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;got a giveback 


3368 4078 3780 fgvb: jsb r7,regchk ;regular message checks 

336C 8A71 bnz sterr ;was in message state 

336E 4078 38D8 jsb r7,reasf8 :find an 8-pkt allocate 

3372 E606 Trap 3006,<:No alloc to give back - page 280>° 
3374 9003 br gudgv2 

3376 4078 3868 jsb r7,reasf :free the reas blk 

337A 4891 gudgv2: Ida r1,=1 7rfnm 

337C 9013 br gudral 


;got inc on some msg 
;clean up, return inc rep 


337E 4078 3790 fincm: jsb r7,regchk ;regular message checks 

3382 8A07 bnz inctro ;not idle 

3384 820E bng incmi snot multi 

3386 4078 38D8 inctri: jsb r7,reasf8 

338A E607 Trap 3007,<;Incq/incm w/gvb, but no alloc to. gb - page 280> 
338C SOOA br inem1 

338E 9007 br inctr2 :g0 free and unlock reas blk 

3390 783E 0008 inctroO: Idab r3,seqh(ré6) ;get messnum, for blk 

3394 4078 38A8 jsb r7,reasgt yany message fragment? 

3398 EGOO Trap 3000,<:No message for incm or incq - page 280> 
339A 9003 br incemi ;oh well 

339C 4078 3868 inctr2: jsb r7,reasf ;free reas blk, flush buffers 

33A0 4893 inem1: Ida r1,=3 sine 

33A2 48B2 gudral: Ilda r3,=2 imsg state 

33A4 9041 br ralput ;fix states and search messtk 


;got a raw packet 


33AG 48D1 gudraw; lida r5,=1 ;no mes bIk now 

33A8 7O1E OOOA Ida ri,unhacm(r6) ;source hacmem 
33AC 7O03E OOSO Ilda r3,bufe(r6) ;packet length 

33BO 48F2 Ilda r7,=words ;mark message one word shorter 
33B2 317E OOSs0 subm r7,bufe(ré6) 

33B6 4A36 add r3,r6 ;get to end of packet 
33B8 7033 lda r3,(r3) ;source haccom 

33BA 4078 3G6EA jsb r7,hostno 

33BE 8A49 bnz fqokgo ;dest dead: ignore 
33C0 7028 O27E lda r2,tskbuf 

33C4 4078 266C jsb r7,ocmove ;get reassembly space 
33C8 63DC cntrs+nre ;space source 

33CA 93043 br fqokgo ;no space: lose 


33CC SOI1A br gdraw3 ;Okay, give host the packet 
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4078 
8A3E 
923B 
4892 
4F28 
8BAE3 


7028 
4078 
63DC 
901D 
7028 
4F28 
SAIE 
4890 
48B2 
4078 
7028 
3528 
70B8 
3O03E 
305E 
7O3E 
49BE 
4078 
0041 
4812 
4008 


4892 
48B1 
4078 
4008 


37390 


0100 


O27E 
266C 


0284 
0800 


3G6AA 
O27E 
O27E 
62E8 
0098 
oosc 
ooso 


1468 


3612 


3GAA 
3566 
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;Got a request 


freq: 


jsb 


r7,reachk 


bnz sterr 


bg 
lda 
tst 


audrqs 
r1i,=2 
r2,=hostng 


bnz gudral 


;i-pkt req. 


gdraw3: 


gudrq2: 
gudrq3: 
ralput: 


Ida 
jsb 


;reg mess checks 

;not in idle state 
pimitpkt ;multi-packet 
;dead rfnm to send 
:dest host alive? 
:died recently 


take mess if there’s room 


r2,tskbuf 
r7,ocmove 


cntrstnre 


br 


lda 


gudrq2 
r2,tskbts 
r2,=mesnxt 
gudrqs 
r1,=0 
ra,=2 
r7,rallyp 
r2,tskbuf 


eorm r2,tskbuf 


Ida 
sta 
sta 
lda 
sub 
jsb 


r3,e@clock 
r3,qt(r6) 
r5.buFfb(rs) 
r3.bufe(rs6) 
r3,=data-2 
r7,owheob 


whtsk?whih 


Ilda 
jmp 


lda 
lda 
jsb 
jmp 


ri gr2 
t2ho 


r1,=2 
r3,=1 
r7.,rallyp 
nxmesO 


:find some space 
; in reassembly 
:none to be had 
;recover old state 


snot next to go 


;prepare buffer for ih 
;setup Tength in bytes 


:give buffer to ih 


igive it to host 


s;alloc 1 to send 
;request 


PAGE 283 
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;Got a i-pkt req out of order 


342E 4833 gudrq5S: lida r3,r3 ;7cntrs+nre ;from cmove 
3430 8BF9 bnm gudrq2 ;no take unless in quarantee 
3432 4078 396C call reasal ;get a free reas blk. 
3436 81FG6 bne gudrq2 :none to be had 
3438 305A 0004 sta r5,rid(r2) ;set up the reas blk 

:lda r3.=1 :returned by reasal }} 
343C 383A 0009 stab r3,ral(r2) ;how much allocated 
3440 701D GSB8S lda ri,rmmess(r5) ;want use number 
3444 381A 0007 stab ri,ruse(r2) 
3448 9034 br gudrqs ;into midst of 8-pkt code 


;Got a request for 8. Queue it oe 


344A 4891 gudrq8: Ida r1,=1 :pending allocate 8 
344C SOEC br gudrq3 :put it in rally 
344E E608 sterr: Trap 3010,<;Rstate violation - page 282> 


3450 4008 3270 fqokgo: jmp fqok 


;Got a message packet 


3454 4078 3790 fmess: jsb r7,regchk ;normal checks 

3458 9207 bg gudtr8 timitpkt :;multi-packet fragment 
345A SAFA bz sterr :must be in message state if 1-pkt 
345C 4078 38DE jsb r7,reasfi :find an all for this guy 

3460 E7CA Trap 3712,<;No alloc for i-pkt msg - page 282> 
3462 SOF7 br fqokgo 


3464 9026 br gudrq6é :process the packet as in req 1 


707 
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:a piece of an 8-packet 


3466 783E 0008 gudtr8: Idab r3,seqh(rs6) ;messno, mes blk 
346A 4078 38A8 jsb r7,reasot :return reas blk in a2 
346E 3901D br newmes 

3470 0000 O° sno reas block. start new one 
3472 305E OO9C oldmes: sta r5,bufb(r6) ;prepare buffer for ih 
3476 7OF8 62E8 Ilda r7,@clock 

347A 307E 0098 sta r7,qt(rs6) 

347E 7O3E OOOA Ida r3,pkth(r6) :this was smashed ° 
3482 4843 Ida r4.,r3 ;pkth 

3484 A6C4 srl r4,4 :pktnum to low-order 
3486 4BCF and r4,=pktnum/ D16 ;just the number 
3488 7O7E 00390 lda r7,bufe(r6) ;calculate length of packet 
348C 49FE sub r7,=data-2 

348E 7068 OOD2 Ida r6,mapv2 

3492 3068 FCO4 sta r6,%map2 

3496 486A OOOA lda r6,=reasq(r2) 

349A 7016 oldm3: Ilda ri.(r6) 

349C 991B bo oldm4 ;add it to the end 

349E 7649 O350 cmp r4,chan-chain(r1) 

34A2 8C17 bn1l oldmS ;if it goes here 

34A4 4861 Ilda r6,ri 

34AG SOFA br oldm3 


;get a reas block for this multi 


34A8 4078 38D8 newmes: jsb r7,reasf8 ;find a reas block 

34AC E605 Trap 3005,<:No reas blk for alloc 8-pkt msg - page 283> 
34AE 9057 br fcokj 

34BO 4818 OOFF gudrq6: Ida ri,= HFF ;largest byte 

34B4 381A 0008 stab ri,rmax(r2) 

34B8 301A OOOA sta ri,reasq(r2) ;odd is good enough 
34BC 701A 400E lda rivrsfbt+foo(r2) ;clear byte count 
34CO 4892 Ida r1i,=2 shave a mes num now 

34C2 301A 0002 sta ri.rsf(r2) ;:reasst ;clear rsf 

34C6 781E 0008 Idab ri,seqh(r6) ;message number 
34CA 381A O006 stab ri.,remess(r2) 


34CE 90D2 br oldmes ;can now process packet 


Pluribus IMP 1301 


IMP .WARM; 1 


OOOE 
O27E 
O27E 
0350 
000C 
A3C8 
O6AO 
OO3E 
0043 
OGAO 
A3C8 
641B 
O17E 
4000 
0008 
0001 
0003s 


37BA 


A3C8& 
63D4 
O17E 
A3C8 
0002 
4000 
3426 


4000 
3270 
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oldms: 
oldm4: 


notla: 


notib: 
oldm6: 


oldmsa: 
fqokj: 


PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 286 
*** warm page *tt* 

be oldmsq :if duplicate packet 

addm r7,rsfbt(r2) 7sigma pkt length 


Ilda r7,tskbuf 
eorm r7,tskbuf 


sta r4,chan-chain(r7) ;hnote the packet number 
sta ri,(r7) ;chain the pkt to the reas blk 
bno .+G6 

sta r7,reasqe(r2) snote last packet 

sta r7.(r6) 

lda r6,nf ; lock where word 

bz .=4 


Ida ri,where-chain(r7) ;move pkt count to nre 
and r1,=whetr 

sub r1,=nre-whtsk+whih 

subm r1,where-chain(r7) 

sta rG.nf 


add ri,=nre-whtsk+whih+cntrs ;address of old counter 

sta ri,temp1 

Ida ri,=0 ;amount to adjust if not last 

tst r3,=Istpkt ;this the last packet? 

bz notla ;not last packet 

stab r4,rmax(r2) ;this will be highest pkt num 

lda r3,r3 :doing single-packet? 

bo oldmG ;ipeqtyp :single packet out of order request 


Ilda ri,=i(r4) 30-7 => 1-8 
subb ri,ral(r2) ;how much allocated 


bz notla ;don’t waste needless time 

jsb r7,fixnre ;return surplus from reassembly 
sub ri.=1 :present pkt returns nal space 
Ilda r7,=1 ;adjustment for source 

lda r3,nf ; lock counters 

62 .<4 
addm ri,nal :fix nal the right amount 

subm r7,@tempi ;return source count 
bm notib ;was within range 

add r3,=1 ;return common space too 

sta r3,nf :unlTock again 

Ilda ri,=1 


addbm ri,rsf(r2) 
sta rO,reaslk(r2) 


lda r1,=0 :irpmtype 
Ilda r3.=2 iirstate ;message state 
tr ralput ;fix states and search messtk 


sta rO.reaslk(r2) 
jmp fqok 
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FCOO 


SC3E 
5C42 
5C46 


5SC4A 
SC4E 
5C52 
5C56 
5SC5SA 
SCSE 


5C60 
5C64 
5C68 
5C6C 
SCGE 
5C70 


SC74 
SC78 
5C7C 
SC7E 
5C82 
5c84 
5C86 
5C8A 
SC8E 
5c92 
SC96 
SC9A 


0400 


4878 
347D 
4008 


387D 
4838 
343D 
TO1E 
301D 
3009 


4818 
341D 
7O1D 
9B02 
E644 
4008 


4838 
733D 
SAFA 
787E 
4BF3 
8AE3 
353D 
4B18 
341D 
781C 
3098 
S90EB 


8000 
65B2 
31E8 


65B8 
8000 
65BA 
0010 
65BC 


8000 
65B2 
ASBA 


3270 


4000 
65BA 


0002 


65BA 
OF FF 
65B6 
OOOF 
OOAC 
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10:57:29 PAGE 287 


* 


;process messages with getblk bit 


;ri/his block 
:got a reset block 


page Warm 


freset: Ida r7,=sign ;deaden this block 


iorm r7,rmimp(r5) 


jmp replyb ;untlock,reply,and exit 


;got a got-no-block (dead or refused) 


ir7/dead reason 


tmnot: stab r7,rmmess(r5) 
jda r3,=tmrset 
iorm r3,rstate(rs) 


;itmmess ;save dead, reason 


i: tstate 


lda ri.,data(r6) ;dead subcode 


sta ri,rmtype(r5) 
br fqokj2 


;got a reset reply 


;itmdeds ;save reason in tm blk 


fresrp: lda ri,=sign ;deaden this block 


jorm ri,rmimp(r5) 
Ida ri,rstate+foo(rs) 


bm fqokj2 
Trap 3104,<:Res rep when 
fqokj2: jmp fqok ;bye bye 


;received a got-a-block 


fgetr: Ida r3.=tminit 
and r3,rstate(rs) 
bz fqokj2 salready 
Idab r7,typh(r6) 
and r7,=<hactnoblk>_- H8 


ti tmimp 
;itstate 


not resetting - page 285> 
block 


;itstate 

active : 

:did we get a block? 
;test errors 


bnz tmnot ;:chace cldrp chstd :nope, no block 


eorm r3.rstate(r5) 
and r1,=gethan?<-1> 
jiorm ri.,emeti(r5) 
Idab rf.hinpid(r4) 
sta r1,@pid 

br fqokj2 


page HLCode 


ritstate 
:;don’t want these: 
pitmet) ;handling type alredy there 


7093 
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;message stack processing 

; we got a message we could give host, or have completed 
; a message, and must search the message stack for more 
; complete ones to give him. 

;Make this an independent strip someday }}} 


3560 300A 4000 srcst4: sta rO,reasIk(r2) 


3564 SOFC br fqokj 

3566 7078 OOD2 nxmesO: Ida r7,mapv2 

356A 3078 FCO4 sta r7,%map2 

356E 703D 65BC Ilda r3,rmtype(r5) 

3572 701D 65BA Ilda ri,rstate(r5) 

3576 S016 br nxmes3 ;entry for noo change to mess no 


3578 703D 65BC nxmes1: Ida r3,rmtype(rs) 


357C 701D 65BA Ida ri,rstate(r5) 

3580 A792 nxmes4: rrilor1,2 

3582 A7B2 rrl r3,2 

3584 301D 65BA sta ri,rstate(r5) 

3588 303D 65BC sta r3,rmtype(r5) 

358C 48A1 Ilda r2,=messO/ H100 

358E 3A2D 65B8 addbm r2,rmmess(r5) 

3592 702D 65B8 lda r2,rmmess(r5) 

3596 4FAC tst r2,=ageO*t HC 

3598 SAO5 bz nxmes3 ;young block 

359A 4DA4 eor r2,=ageO*4 

359C 4BAF and r2,=age 

359E 352D 65B8 eorm r2,rmmess(r5) 

35A2 4F93 nxmes3: tst ri,=3 

35A4 SADC bz fqokj ;idle 

35A6 890B bno nxmes6 7mess state 

35A8 4F92 tst. rt,22 

35AA 8AD9 bnz fqokj :reply state 

35AC 4FB2 tst r3,=2 ;already in alloc to send? 
S5AE 8AD7 bnz fqokj :yes, can’t go farther 
35BO 4CB2 ior r3,=2 : 
35B2 SSE7 bo nxmes4 ;all 8 to send - bump mess‘no 
3584 EFDS Trap 7730.<;Illegal rstate/type - page 286> 
35B6 303D 65BC sta r3,rmtype(r5) 

35BA 90D1 br fqokj 

35BC 4FB3 nxmes6: tst r3,=3 

35BE SAO6 bz smstk ;see if mess is in 

35CO 4C91 nxmesS: ior ri,=1 ;mes to reply 

35C2 4FB2 tst r3,=2 

35C4 8ADE bnz nxmes4 ; ine or dead 

35C6 4DB1 eor r3,=1 


35C8 SODC br nxmes4 
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;the next guy to go may be in messtk 


35CA 783D 65B8 smstk: Idab r3,rmmess(r5) 


35CE 4078 38A8 jsb r7,reasgt 

35D2 90C5 br fqokj 

35D4 0000 O° ;none there? okay 

35D6 786A 0008 ldab r6,rmax(r2) 

35DA 7EGA 0002 cmpb r6,rsf(r2) 

35DE 82C1 bng srest4 ;not complete 

35EO 7018 0284 Ilda ri,tskbts :finally, checking dest dead 
35E4 4F18 0100 tst ri,=hostng 

35E8 SAOS bz smsok shost is okay 

SSEA 4078 3868 jsb r7,reasf ;flush the message 

35EE 701D 65BA Ilda ri,rstate(r5s) ;refetch state bits 
35F2 703D 65BC Ilda r3,rmtype(rs) . 
35FG6 4CB2 jor r3,=2 ;for dead reply 

35F8 SOE4 br nxmes5 

35FA 701A OOOA smsok: Ida ri,reasq(r2) ;first pkt 

35FE 7O6A OOOC lda rG,reasqe(r2) plast pkt 

3602 703A OOOE Ida r3,rsfbt(r2) ;total length in bytes 
3606 48F1 Ida r7,=1 

3608 387A 0003 stab r7,reasst(r2) 

360C 300A 4000 sta rO.reaslk(r2) 

3610 4826 Ilda r2,r6 


:fall into t2ho 
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IMP .WARM; 1 PAGE 50 *** warm page ttt 
;here with ri/first packet,r2/last,r3/bytes so far, 
> r5/rmbik 
3612 4868 O2F8 g2ho: Ilda sp,=Istack 
3616 1056 save r5 ;Save messblock pointer. 
3618 4851 Ilda rs,r1 ;Save r1 over unpack 
361A 4078 1512 call unpack ;last pkt 
3G61E A2B3 s11 r3.3 ;bytes to bits. 
3620 7219 0090 add ri,bufe(ri) ;last data word offset. 
3624 7011 lda ri,(r1) ; last data word. 
3626 S9A04 ifnot zero 
repeat 
3628 49B1 sub r3,=1 
362A A791 rei 3.4 ;Find low-order i-bit 
362C 8BFE until minus 
endrepeat 
endif 
362E 4875 Ida r7.r5 ;exch r5,r2 
3630 4852 Ilda r5,r2 
3632 4827 Ilda r2,r7 ‘ 
3634 7078 OOD2 Ilda r7,mapv2 
3638 3078 FCO4 sta r7,%map2 
363C 4078 1500 call unpekc,whih :first pkt 
3640 0040 
3642 8A03 if fail 
3644 E6DO Trap 3320,<;Bad buffer in t2h - page 288> 
3646 39020 else 
3648 3031 sta r3,(ri) ;i7meth 
364A 7048 0282 lda r4,tskhst 
364E 483C 0062 lda r3,=ehq(r4) : 
3652 7079 0002 Ida r7,typh(ri) ;get typh for priority check. 
3656 A2F3 sl] 7,3 ;Priority bit to sign 
3658 8B02 if minus ;ipribit 
365A 4AB4 add r3,=ehpq-ehq 
endif 
365C 7078 OOD2 lda r7,mapv2 
3660 3078 FCO4 sta r7,%map2 
3664 7078 62DA Ilda r7,time 
3668 4A78 O4BO add r7,=sec30 ;allow 30 seconds for sending. 
366C 307A 0350 sta r7,chan-chain(r2) 
3670 707C 405C lock lockih(r4) 
3674 SAFE 
3676 30A3 sta r2.@(r3) :;ehq,ehpq 
3678 3053 sta r5,(r3) 77ehq,ehpq 
367A 300C 405C unlock lockih(r4) 
367E 787C OOOE Idab r7,hotpid(r4) ;poke host. 
3682 30F8 OOAC sta r7,@pid 
endif 
3686 6056 restore r5 
3688 83903 to Fqok ;taking raw pkt. 


368A 4008 3270 
368E 4008 3578 tr nxmes1 ;mes blk, maybe more messages done. 


— 3 
( 
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;dispatch tables 
;reply codes for duplicates, rfnns 
3692 o5 frpcod: .byte crfnm,crfnm,cdestd,cinctr 
3693 os 
3694 O7 
3695 og 
nominal reply types for replies from task 
3696 O06 reptab: .byte dedtyp, dedtyp, dedtyp. dedtyp 
3697 O06 
3698 O06 
3699 O6 
369A 04 .byte rfntyp, rfatyp, dedtyp, inrtyp 
369B o5 
369C O06 
369D O7 
369E oc -byte outtyp, gbrtyp, rrptyp, O ;for 
369F OD 
36A0 OF 
36A1 fole) 
36A2 OA .byte rsbtyp, rsbtyp, rsbtyp, O :for 
36A3 OA 
36A4 OA 
36A5 0O 
;bits for fixing meseen,mesout 
36A6 0400 mestst: mesout ;-1 - -7: (no bit) 
36A8 OGOO meseen+mesout st > 7s seen 


PAGE 291 


:for dest dead 
;for dup! replies 
block ‘stuff 


block replies 


713 
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IMP .WARM; 1 PAGE 52 ‘** warm page ttt 
; subroutines 


.comnt | 
rally format: 
rstate, rmtype each have 8 2-bit fields, with the following values 
rstate: O=idle 1=request 2=message 3=reply 
rtype: Orfnm sent illegal mes going send rfnm 
1 r/al sent req8 recd givb recd send r/al 
2 dead sent send alli dead recd send dead 
3 incr sent send al1l8 incr recd = send incr 


messno always has next to give host 


legal messno ranges: 

all idies: n-1 to n-8 for duplicate replies 

req8/givb/dead/incr recd: n to n+7 

send alli: n to n+7 

send al18, all replies: n-1 to n-8 

mes going: n to nt+7 (8-pkt and in mes stk) 
n+1 to n+7 (1-pkt and in messtk) 
n-1 to n-8 (on host queue) 

put an entry into rstate/rtype 

new rstate in r3, rtype in ri, call onr7, uses r6, temp! 

expects ralshf to be set up 


36AA 3078 O17E rallyp: sta r7,temp1 


36AE 7078 0280 lda r7,ralshf 

36B2 A217 sll 61,07 

36B4 751D 65BC eor ri,rmtype(r5) 
36B8 731F 36DA and ri,ralbts(r7) 
36BC 351D 65BC eorm ri,rmtype(r5) 
36CO A237 sll r3.r7 

36C2 753D 6S5BA eor r3,rstate(r5) 
36C6 733F 36DA and r3,ralbts(r7) 
36CA 353D 65BA eorm r3,rstate(r5) 
S36CE 4838 0026 Ilda r3,=bkipid 
36D2 30B8 OOAC sta r3,@pid 

36D6 4088 O17E jmp @®temp1 


;rally rstate and rtype masks 


36DA 0003 ralbts: O03 

36DC OO0O0C HOC 
36DE 0030 HO30 
36EO OOCO HOCO 
36E2 0300 HO300 
36E4 OCOO HOCOO 
36E6 3000 HO3000 


36E8 COOO HOCOOO 


re, 


715 
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.comnt | 


test host state and access: ri/hacmem,r2/forus flags,r3/haccom, 
r4/(in hostnm)our host,r5/rmb1k(if any),rG/buffer,r7/return 
returns: bad args/fqok 
failure/set hostng=1,cc nz,r3 reason,r7 new typh 
success/r4 to hstblk 
uses temp1,temp2,ri,r3,r7; others as noted above 


& 
3G6EA 784E 0008 hostno: Idab r4,seqh(r6) ;set up host number 
3G6EE 3078 O17E hostnm: sta r7,temp1 sentry point with rd set up already 
S36F2 3038 0180 sta r3,temp2 ;save up haccom 
36F6 7038 62E0O lda r3,myimp 
S36FA SAOA bz hostn4 
SG6FC 48F4 Ida r7,=hninit ;IMP not initialized yet 
36FE 703E 0006 Ida r3.srch(r6) :source IMP this msg 
3702 A2B1 sl1l r3.1 ; doubled 
3704 703B 72FC Ida r3,spfrut(r3) ;get route to this IMP 
3708 4838 800F and r3,=routef+tspfded 
370C 8A3A bnz hostnd ;not from us: return dest dead 
370E 4E48 0018 hostn4: cmp r4,=nrh ;max hosts per IMP 
3712 9207 bg hostno ;real host 
3714 4948 OOFC sub r4,= H100-nfh ;test for proper fake number 
3718 8B14 bnm hostni ;legal fake 
371A 4878 4300 hostnS: Ida r7,=hactnoblk+qertyp shac Failure 
371E 9035 br hostn6 

hostno: 

0001 .IF NZ VHA ;do the inverse VHA check 
3720 3068 O2F6 sta rG,1lstack-words ;"push" old SP 
3724 4868 O2F6 lda sp,=lIstack-words 
3728 1016 save ri ;preserve ri too 
372A 7O1E 0002 lda ri,words(sp) sand load it with buff addr 
372E 4078 SETA call tskvha :check address 
3732 8A04 if fail ;no good 
3734 6016 restore ri 
3736 6066 pop r6 
3738 9OF1 br hostns ;send dest dead 
endif 

373A 6016 restore ri 
373C 6066 pop r6é 

. ENDC 


373E 4AC4 add r4,=nfh iskip fakes 
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IMP .WARM; 1 


3740 
3742 
3746 
3748 
374C 
3750 
3754 
3756 
3758 
375C 
375E 
3762 
3766 
3768 
376A 
376E 
3772 
3774 


3778 


377A 
S77E 
3780 
3784 
3788 
378C 


703C 
8A03 
483F 
4878 
4C28 
4088 


FFFB 
62E2 
0010 
40EO 
40D0 
0180 
40co 
6326 
0282 


OO1F 


002C 


FFEO 
4100 
0100 
O17E 
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hostni: sll r4,1 
Ida r7,=-nfhtwords(r4) :minus if fake 
rlilor7, H8 :Swap bytes 
ior r7,mine sand get my IMP number 
Ilda r3,=Ihaccs show many haccs special 
cmp r7,hacspce(-r3) ymatch an entry? 
be .t4 ;got a match 
bnip .-6 :more to search, last is default 
tst ri,haccom(r3) ;ours talk to his?. 
bnz hostnb ;yup 
ior ri,temp2 ; if same mem group(s) 
tst r1,hacmem(r3) shis talk to ours? 
bz hostns ;nope 
hostnb: Ida r7,/hnexis ;host doesn’t exist 
lda r4,h2pbik(r4) 
sta r4,tskhst 
bm hostnd ;nmo such, host 
Idab r7,hihd(r4) ;:hostup 
-IF NZ VHA 
;need not check leacler mode if VHA 
bz hostn3 :go ahead with connection, cc z 
-IFF ;NZ VHA 
bnz hostn7 ;host dead 2 
Idab r7,homode(r4) ;his address reportable? 
bnz hostne :ok if new format(now set cc z}) 
Ilda r3,srch(r6) :otherwise check for low host/imp 
tst r3.=-1?srcei 
bnz hostng ;source imp too big 
ldab r3,srchst(r6) 
Ilda r5,r5 :got a mes blk? 
bo .+6 ;nope 
Tdab r3,rmhost(r5) :itmhost ;remote host 
cmp r3,= H100-nfh 
bg hostna 
add r3,=nfh 
hostna: tst r3,=-1?<<frmimp}srceh>/ H40> 77chstd} 
bz hostn3 :go ahead with connection, cc z 
hostn$9: Ilda r7,=hactgertyp ;refuse, can’t report source addr 
br hostn6 
hostne: tst r7,=0 ;set cc zero 
br hostn3 : and return 


-ENDC :NZ VHA 


hostn7: 


hostnd: 
hostn2: 
hostn6: 
hostn3: 


Ilda r3,deadsc(r4) ;use dead status 
bnz hostn2 :(if any) 

Ida r3,=chnoti(r7) ; else report hihd- 
Ilda r7,=noblk+qertyp : 
ior r2,=hostng ;set cc nz 


jmp 


etemp! 
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common checks for regular messages 
return cc: z idle state, nz msg state, g mitpkt, mg sing pkt 


3790 4F28 O600 regchk: tst r2,=meseen+mesout 

3794 SAO03 tnz fqok ;duplicate 
3796 4008 3270 

379A 4038 FFFF regch2: eor r3,=-1 


379E 4AB1i add r3,=1 

37A0 A2B1 sll r3,1 

37A2 3038 0280 sta r3,ralshf ;amount to shift for rstate, rtype 

37AG6 701D 65BA Ilda ri,rstate(rs) 

37AA AG13 sri ort.rs 

37AC 4893 and ri,=3 re 

37AE 8904 if odd :can’t do a thing in request or reply state 

37BO 4DA8 eor r2,=ingtyp ;unless it’s an ince query. 

37B2 4FAF tst r2.=pktcod 

37B4 8AF1 tnz fook pit isn’t, so it can be ignored. 
endif 

37B6 4EAO cmp r2,=0 ;set g, e@ con codes 

37B8 4007 jmp (r7) ;return successful 


snre, nal subroutines 


;adjustment (must be negative) in ri, uses r3,r6, return in r7 


37BA 7038 A3C8 fixnre: Ida r3,nf :lock the counters 

37BE SAFE bz .-4 

37CO 900B br nal2 ;drop into the following 

37C2 7038 A3C8 fixnae: Ida r3,nf : lock counts 

37C6 SAFE bz .-4 

37C8 3218 63D4 addm ri,nal sadjust nal 

37CC 8BOS bnm nal2 

37CE EFDO Trap 7720,<:Nal gone neg - page 293> 
37D0 4890 Ida ri,=0O 

37D2 3018 63D4 sta ri,nal ;reset nal 

37D6 7068 63DC nal2: Ilda r6,cntrstnre snow do nre 
37DA SBO2 bm nre2 ;not using slush 

370C 4A36 add r3,r6 ;momentarily return surplus 
S37DE 4A61 nre2: add r6,ri1 ;adjust nre 

37EO 9BO2 bm nre3 ynow within min 

37E2 4936 sub r3,r6 ynow take surplus again 
37E4 3068 63DC nre3: sta r6,cntrstnre new nre 

37E8 3038 A3C8& sta r3,nf ;new nf, unlock 


37EC 4007 jmp (r7) ;done 


a hf 
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4F28 
9AD2 
4818 
AG1i3 
7710 
8ACC 
3018 
4007 


4BAF 
7018 
4B18 
4EAG 
8102 
4c91 


301B 
781A 
381B 
4007 


781B 
8914 
7018 
4F18 
8AOF 
701D 
4B18 
A694 
702D 
8BO03 
4C18 
7C1D 
4008 


7018 
351B 
4007 


7018 
341D 
300D 
4007 


0200 
0100 
65BA 


0280 


0008 
FFFO 


0008 
368E 
0003 


OO0O0D 


0284 
0100 


65B6 
7000 


65B6 


8000 
65B4 
188E 


oo0oc 
O00Cc 


0280 
65BA 
ASBO 


PAGE 56 ‘kr warm page t** 
;common reply checking subroutine 


repchk: tst r2,=meseen 
tz fqok ;out of range, ignore 
Ilda ri,= H100 
srl ri,rg 
tst ri,rstate+<O'tstate>(r5) 


tnz fqok ;duplicate, discard 
sta ri,repbit ;Save for repfix 
jmp (r7) ; succeed 


;set up IMP-Host reply type 


rfledp: and r2,=pktcod ;just packet code 


lda ri,trmidl(r3) :gel messid 
and ri,#-1?subtyp ;:cimpd ;clear subtyp (default subtyp) 
if r2 = #4dedtyp :dest host dead 
ior r1,=chstd :tell host 
endif 
sta ri,trmidl(r3) ;put into tran block 
ldab ri,frpcod-rfntyp(r2) :get appropriate IH code 
stab ri,trtypl+1(r3) :message type 
jmp (r7) . 


;Queue a reply on a Host 


ledpe: Idab ri,trstat(r3) ;reply required? “ 
bno ledpc2 :ittrfnm :no, just free trnblk 
lda ri,tskbts 
tst ri,=hostng ;if our host has died 
bnz ledpc2 


Ida ri,rmceti(r5) ;itmct!l ;now for handling type 
and r1,=getmax ;just max pkts 
srl ri.4 ;max pkts into place : 
Ilda r2,rmct1(r5) :itmctl ;test pri bit here 
bnm ledpci :igetpri :not priority 
ior ri,=priled ;make it priority . 
ledpc1: iorb ri.,rmhost(r5) ;itmhost ;dest (remote) host 
tr ledp2 ;now lock and queue it 
ledpc2: Ida ri,trntim(r3) :i:trstat ;free trnblk 
eorm ri,trntim(r3) ;and clear it 
jmp (r7) 


;common reply fixer subroutine 
;put tmess bit in, plus timeouts 


Pept ix: Ida ri,repbit :set up by repchk 
iorm ri,rstate+<O*¥tstate>(r5) 
sta rO,rmlock+<O*tmlock>(r5) ;won’t need this no more 
jmp (r7) . 
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3868 
386C 
3870 
3874 
3878 
387A 
387C 
3880 
3882 
3886 
3888 
388A 
388C 
388E 
3892 
3896 
389A 
389C 
38A0 
38A4 


3078 
7078 
3078 
783A 
990B 
4832 
702B 
7042 
4078 
0040 
4824 
89FB 
4823 
781A 
7S1A 
4078 
4891 
381A 
300A 
4088 


0180 
ooD2 
FCO4 
0003 


OOOA 


1314 


0002 
0003 
37C2 


0003 
4000 
0180 
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;reassembly subroutines 


;flush the pkts in a reas blk and free it 
pin: r2/reas blk, uses: r1,r3,r4,r6,temp!, temp2 


reasf: sta r7,temp2 
lda r7,mapv2 
sta r7,%map2 


Idab r3,reasst(r2) sany of msg in? 
bo reasfO no 
Ida r3,r2 :need r2 for flush 


Ida r2,reasq(r3) 
reasfl: Ida r4,(r2) 
call oflush.,whih 


lda r2,r4 
bno reasfl ;more to flush 
Ida r2.r3 ;restore reas blk ptr 


reasfO: Idab ri,rsf(r2) ;how many so far. 
subb ri,ral(r2) ;how many to return 


jsb r7,fixnae ;fix both nal and nre 
Ilda ri,=1 
stab r1,reasst(r2) :frees block 


sta rO,reaslk(r2) 
jmp @temp2 
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38A8 
38AC 
38BO 
38B2 
38B6 
38B8 
38BC 
S8BE 
38C2 
38C4 


38C8 
38CC 
38D0 
38D4 
38D6 


4828 
TO1A 
SAFE 
781A 
9909 
TESA 
8106 
765A 
8103 
400F 


300A 
4A28 
4E28 
92EC 
4007 


7038 
9002 


48B1 
4828 
7O1A 
SAFE 
781A 
4E93 
9109 
300A 
4A28 
4E28 
92F3 
4007 


765A 
81F6 
TESA 
81F3 
781A 
751D 
4B18 
BAEC 
400F 


6CBO 
4000 


0003 
0006 
0004 
0004 
4000 


0010 
6E30 


12E6 


6CBO 
4000 


0003 
4000 


0010 
6E30 


0004 
0003 
0007 
65B8 
OOFO 


0004 
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;find a reassembly block 
7;a3/messno,a5/rmb1k,a7/return,gets reas blk in a2/skip 4 if win 


reasgt: Ida r2,=messtk 
relook: Ida ri,reasik(r2) 


bz .-4 

ldab ri.reasst(r2) 

bo reasg1 ;no id for this one yet (free or only all) 
cmpb r3,remess(r2) 

bne reasg!i ;wrong mess 

cmp r5,rid(r2) 

bne reasgi ;wrong rblik 

jmp 4(r7) 


reasg1: sta rO,reaslk(r2) 
add r2,=Irblk 
cmp r2,=emsstk j;past end yet? 
bg relook snope, keep trying 
jmp (r7) ;fail = non-skip 


ifind an allocated reassembly block 

; reasf8 finds an 8-pkt allocate, reasfi finds a 1-pkt. 
; a5=message block, returns reas block in a2, uses ai,a3 
; returns with reas block locked 


reasf8: Ida r3,pkts8 
br reasfz 


reasfi: Ida r3,=1 
reasfz: Ilda r2,=messtk 
reasfv: Ida ri,reasik(r2) 


bz .-4 

ldab ri,reasst(r2) 

cmp r1,=3 ;this an allocate? 

be reasfx ;yup - so it’s got possibilities 
reasfw: sta rO,reaslk(r2) ;unlock block 


add r2,=Irblk 

cmp r2,=emsstk j;past end of reas blks? 
bg reasfv ;nope 

jmp (r7) :yup - fail return 


reasfx: cmp r5,rid(r2) 
bne reasfw 
cmpb r3,ral(r2) ;correct size? 
bne reasfw ;nope, keep looking 
ldab ri.ruse(r2) ;correct use? 
eor ri,rmmess(r5) 
and r1,=luse 
bnz reasfw 7no, keep looking 
jmp 4(r7) ;a winner: return leaving block locked (}) 
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:find a transaction block 

sin r5/tmb1lk,r6/buffer,r7/return, uses tempt 

;if win, skip 4 with ri/trstat, r3/trnblk, rG/dead status 
rrestores %map2 to mapv2 

;uses temp1, also 


3920 3078 O17E ftrngt: sta r7.tempt ;save return 
3924 7O7E 0008 lda r7,seqh(r6) ;message number 
3928 4878 FFOO and r7,=mesnum ;just message number 
392C 4835 lda r3,r5 ;mes blk index 
392E A7B4 Pris 73.4 ymy block 
3930 4C7B FFC8 ior r7,=-<<tmblks-rmblks>_-4>(r3) ;r7 gets messno, block 
3934 7OGE 0010 lda r6,data(r6) ;maybe dead status 
3938 7038 OOD2 Ilda r3,mapv2 
393C 3038 FCO4 sta r3.%map2 
39840 4838 8910 lda r3,=trnblk 
3944 781B OOOD ftrgi: Idab ri,trstat(r3) 
3948 SAOB bz ftrg2 snot in use 
394A 4F18 0088 tst ri,=ttledr+ttresv 
394E 8A08 bnz ftrg2 ;being used for something else 
3950 767B 0004 cmp r7,trhsti(r3) 
3954 8105 bne Ftrg2 ;no message num/bIk match 
3956 7078 O17E lda r7,temp1 
395A 400F 0004 jmp 4(r7) :got it 
395E 4A38 0010 ftrg2: add r3,=trnl 
3962 4E38 8F50 cmp r3.=trnbik+trntot 
3966 81EF bne Ftragl smore to search 
3968 4088 O17E jmp @temp1 :failed to find it 

:allocate a reassembly block 

sreturn cc e if found, block locked 

:igudrqS ;wants this to return r3 = 1} 

routine reasal,nosave, uses r2-r3 
396C 4828 6CBO Ida r2,=messtk 

repeat 
3970 703A 4000 lock r3,reasik(r2) 
3974 SAFE 
3976 783A 0003 ldab r3,reasst(r2) 
S97A 4EB1 break if r3 = =1 :found a free ane. 
397C 9108 
397E 300A 4000 unlock reastk(r2) 
3982 4A28 0010 add r2,=Irblk 
3986 4E28 GE2F until r2 > =emsstk-1 ;thru reas blks. cc never equal. 
398A 8CF3 
endrepeat 

398C 4807 endroutine reasal 
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5 EER ERE REED back hosts **trtttrret 


;main entrance to back - identical to hi 


Page LCode ;MUST be local 

398E 7049 81CO back: Ida r4d,mblks(ri1) 
3992 701C 4000 Ida r1,lockhi(r4) 
3996 8A03 tz loop ;check- lock 
3998 4008 108E 
399C 7O5C OOIC lda r5.bmessb(r4) 

0001 -lif nz LBig 
39A0 7078 OOB2 setmap MO,mapddt ; if code on DDT page, change MO 
39A4 3078 FCOO 
38A8 707C OOOC Ilda r7,hitt(r4) ;tested at return 
39AC 408C 0004 jmp @hilo(r4) ;dispatch (must match hi wakeup) 


;get a free buffer and set it up for back 


39BO 307C 0008 getfre: sta r7,htemp7(r4) 


repeat 
39B4 4868 O2F8 Ilda sp,=Istack 
39B8 4078 13C6 call freget.whhi+nbak 
39BC 200C } 
39BE 8A04 until succeed 
39CO 4078 2B3A call hiwm 
39C4 SOF8 endrepeat 
398C6 4861 Ilda r6.r1 
39C8 4838 0012 lda r3,=data+2 ;last addr used 
38CC 303E 00380 sta r3,bufe(ré6) 
39D0 4AE4 add r6,=chkh ;move into packet 
39D2 48B0O Ida r3,=0 ;for packet beginning 
39D4 3036 sta r3,(r6) ;chkh 
39D6 1036 sta r3,(-r6) ;typh 
39D8 1036 sta r3,(-rG6) ;neth 


393DA 408C 0008 jmp @htemp7(r4) 
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backS - send replies 


rstate rtype=00 rtype-01 rtype=10 rtype=t1 
idle=00 rfnmi sent all8 sent dead sent inc sent 
request=01 illegal reqs revd alli to send al18 to send 
message=10 message gvb revd dead rcevd ine revd 
reply=11 rfnmi to send rfnm8 to send dead to send inc to send 
Page LCode ;place in local memory for speed 
SSDE 4AB4 b510: add r3,=2*words 
3SEO 4E38 0020 cmp r3.= H8*2*words 
39E4 8118 bne b53 
39E6 300D AS5BO bS59: sta rO.rmlock(r5) 
S9EA 765C OO1C b54: cmp r5,bmessb(r4) ynothing to do? 
3SEE 8107 bne bS4a :if there might be more 
39FO 4078 2B3A jsb r7,hiwm 
39F4 705C OO1C backS: Ida r5,bmessb(r4) 
39F8 4878 5555 lda r7,= H5555 
39FC 4958 0010 b54a: sub r5,=rmlen 
3A00 8BO3 bnm b52 
3A02 4858 0370 Ilda r5,=<rmnum-1>*rmlen 
3A06 777D G65BA b52: tst r7,rstate(r5) jany request/reply? 
3AOA SAFO bz b54 ;nope 
3AO0C 701D A5BO Ida ri,rmlock(rs) 
3A10 SAFE bz .-4 
3A12 4880 lda r3,=0 
3A14 701D 6S5BA_ b53: Ilda ri.rstate(rs) 
3A18 771B OEBG tst ri,bittab(r3) 
SA1C SAE1 bz b510 :idle or message state 
3A1E 702D 65B2 Ilda r2,rmimp(r5s) 
3A22 8B04 bnm 658 
3A24 702D ASBA Ilda r2,rstate+foo(r5) ;clear it 


3A28 SODF br b59 
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4868 
306C 
706B 
4F16 
B8A44 
701D 
4F16 
SACF 
356D 
7718 
9A13 


706B 
4078 
1004 
4868 
346C 
7068 
4078 
9A14 
703D 
8A49 
9OF8 


7568 
4078 
1004 
48E8 
3A6C 
48E1 
4078 
8AFD 
48BO 
48E3 
8003 


48B8 
48E1 
701D 
SAFE 
7TA3C 
7933D 
4B38 
4EB7 
8CO2 


9009 


OEBG 
518E 
0012 


3B2A 


ASBO 


0012 
65B8 
OOF F 


PAGE 62 *** warm page 


:we have a receive block with 
b58: Ida r6,=sec3/6 
sta rG,hitt(r4) 
Ida r6,bittab+2(r3) 
tst ri.r6é 
bnz b55 
Ida ri,rmtype(r5) 
tst ri.rc 

bz b510 snot 
eorm r6,rmtype(rs) 
tst ri,bittab(r3) 

bz b516 


; allocate 8 to send 


lda r6,bittab(r3) 

jsb r7,bakset 
regtyp+pribit+rfntyp 
lda r6,=mitpkt ;this 
iorm rG6,bpkth(r4) 

Ilda r6,pkts8 

jsb r7,bgeta 


bSid: 


bz bSie ;Give 
Ilda r3,rstate(r5) 

bnz b51i4 ;some 
br bSid ;none is - we 


; allocate 1 to send 
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something to do 


71/2 sec max wait 


;reply state 


all8 to send 


;set up rfnm 
is a multi reply 


up after 1/2 second 

;Old mesbik’s rstate , 
message past the one we have is in 
must wait for alloc 


;set up rfnm 
;off by 8 messages 
:adjust messno accordingly 


;in this window of 8 


r3,.= D8*tmesnO/ H100 ;adjust from last to this 8 


; lock the mes blk 


b516: eor r6,bittab(r3) 
jsb r7,bakset 
regtyptpribit+rfntyp 
Ida rG6,=< H800&mesnum>/ H100 
addbm r6,bseqh(r4) 
b519: Ilda r6,=1 
jsb r7,bgeta 
bnz 6519 :try for 1/2 second 
Ilda r3,=0 
Ida r6,=3 
br bSit 
bSie: lda 
Ilda r6,=1 
bSit: Ida ri,rmlock(r5) 
bz .-4 


addb r3,bseqh(r4) 
subb r3,rmmess(r5) 
and r3,= HFF 
cmp r3,=7 
bn bSif 

>; Trap 7741,<;Back 
br b5ig 


;mes num still 


;mes num we were sending 
;our offset from mes num 


;mod 256 arithmetic 


in range 
can‘t back up - page 300> 


\ ) 725 
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bSif: ; Trap 7740,<;8k bypass alloc - paye 301> 
SAAA A2B1 sll r3.1 ;index to rstate bits (2 per msg) 
SAAC A263 sll r6,r3 r 
SAAE 356D 65BA eorm r6,rstate(r5) 10: <>: OF 
SAB2 48E2 Ida rG,=2 50) =>. 10 or 71 
3AB4 A263 sll r6.r3 
3AB6 356D 65BC eorm r6,rmtype(rs) ;mes to req state 
SABA 300D A5BO b5ig: sta rO,rmlock(rs) :done for now 
SABE 909B br backS :go to another block 
3ACO 756B OEB6 b55: eor rG.bittab(r3) 
3AC4 4078 518E jsb r7,bakset 
3AC8 1004 regtyptpribittrfntyp :set up rfnm 
SACA 771B OEB8 tst ri,bittab+2(r3) 
3ACE 9AO7 bz b57) ;rfnm or rfnm/all 
3ADO 48A2 Ilda r2,=dedtyp-rfntyp yan adjustment for deads 
3AD2 771B OEB6 tst ri,bittab(r3) 
SAD6 9AG1 bz 6513 ;rfnm/dead 
3AD8 48A3 Ilda r2,=inrtyp-rfntyp sine adjustment 
SADA SO5F br b513 
3ADC 771B OEBG b57: tst ri,bittab(r3) 
3AEO SASE bz b515 ;rfnm only 
SAE2 4838 8000 Ida r3,=mitpkt 
3AE6 343C 0014 jorm r3,bpkth(r4) 
3AEA 7068 12E6 b511: lda r6,pkts8 
SAEE 4078 3B2A jsb r7,baqeta 
SAF2 9A0G bz bS14 ;time’s up 
3AF4 703D 65BA lda r3.rstate(r5) ; looking for anyone in req or reply 
SAF8 4F38 5555 tst r3,= H5555 
SAFC SAF7 bz bS11 :no other reply to piggyback upon 
SAFE 703D ASBO b514: Ilda r3,rmlock(r5) 
3BO02 SAFE bz .-4 
3B04 703C 0012 Ida r3.bseqh(r4) 
3B08 4C38 OOFF ior r3,= HFF 
3BOC 713D 65B8 sub r3,rmmess(r5) 
3B10 A4B8 sra r3, H8 
3B12 4AB8 add r3,= H8 
3B14 9BO08 bm b517 ;window slid past??? 
3B16 A2B2 sll. r3,2 
3B18 703B OEBG6 Ida r3,bittab(r3) 
3B1C 4038 FFFF eor r3,=-1 
3B20 333D 65BC andm r3,rmtype(rs) irf/al sent -> rfnm sent 
3B24 300D ASBO b517: sta rO,rmlock(rs) 


3B28 S03A br bS15 
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IMP .WARM; 1 PAGE 64 t** warm page 't* 
3B2A 4856 bgeta: Ida r5.r6 ;remember adjustment 
3B2C 7028 A3C8 Ida r2,nf ; lock counts 
3B30 SAFE bz «74 
3B32 7038 63DC Ilda r3.,cntrstnre show many in ih now? 
3B36 8BO04 bnm bgetad ;over min, must go to nf 
3B38 4A36 add r3,r6é ;will we put it over? 
3B3A SBOB bm bgeta2 ;no, just take nre 
3B3C 4853 Ilda r5,r3 ;how much must come from nf 
SB3E 4925 bgetaO: sub r2,r5 yadjust nf 
3B40 7628 63D0 emp r2.minf ;enough room? 
3B44 8207 bng bgetai :yup, we’ll take it 
3B46 4A25 bSib: add r2,r5 7no, give it back 
3B48 3028 A3C8 sta r2.nf 
3B4C 4008 2B3A jmp hiwm 
3850 48D0 bgeta2: Ida r5,=0 show much nf we took 
3B52 3268 63DC bgetai: addm rG,cntrs*nre ;taking nre space 
3B56 3268 63D4 addm r6,nal ;and nal 
3B5A 3028 A3C8 sta r2,nf ;unlock counts 
3BS5E 4817 lda ri,r7 ;save HIWM return 
3B60 4078 396C call reasal ifind 1 free reas blk 
3B64 S10A be b518 :got a good one 
3B66 4871 Ilda r7,ri ;restore return 
3B68 7028 A3C8 Ilda r2,nf : lock nf again 
3B6C SAFE bz .-4 
3B6E 3168 63DC subm r6,cntrst+nre ;we’ve remembered adjustments 
3872 3168 63D4 subm r6.nal 
; we should count this case 
3B76 SOE8 br bSib ;go return excess and sleep 
3878 386A 0009 b518: stab r6,ral(r2) 
3B7C 705C OOI1C lda r5,bmessb(r4) 
3B80 305A 0004 sta r5,rid(r2) 
3884 701D 65B8 lda ri,rmmess(r5) 
3B88 381A 0007 stab ri,ruse(r2) 
3B8C 4893 Ilda r1,=3 :set to ‘no-name’ 
3B8E 301A 0002 sta ri,rsf(r2) yireasst ;and clear rsf 
3B92 300A 4000 sta rO,reaslk(r2) 
3B96 48A1 lda r2,=rfatyp-rfntyp sadjust for rfnm.allocate 


3B98 322C 0014 b513: addm r2,bpkth(r4) 
3B9C 4078 5022 b515: jsb r7,bsend 
3BAO 4008 39F4 jmp back5 
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FCOO 


0001 
0200 


A491 
7TAID 
4991 
A298 
4821 
AGD4 
4ci5 
A2D4 
4878 
4838 
7F7B 
8A04 
761B 
910B 
4A38 
4E38 
81F6 
EG47 
4078 
5408 
901C 


48F9 
387B 
701B 
4CSF 
499C 
301B 
787B 
787B 
4F78 
9A09 
4078 
5408 
4838 
343C 
39004 
4078 
5008 


707D 
706D 
E7C7 
4078 


6938 


0088 
8910 
OOoD 
0004 
0010 
8F50 


51D8 


0003 
0008 


0008 
OOOoD 
oo00D 
0040 
51D8 


8000 
0014 


51D8 
65B2 
65B4 


5022 


1301 
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*** warm page t*t 


; back6 - incompletes 


b67: 


b6a: 


b6d: 


b6b: 


b68: 


.if nz LBig ;if assembling with big local 
page DDTCode ;place in DDTCode 
TET . 
page Warm ;else place in Warin 
.endc 
sra ri.1 
addb ri.tmmess(r5) 
sub r1,=1 
sll ri, D8 
lda r2.ri 7r2 is argument to bFixt 
srl or5,4 j;mes blk offset to rh 
ior ri,rs 7Sso: mes num,tr mes blk 
sil r5.4 
lda r7.=ttledr}ttresv ;these must be O 


Ida r3,=trnblk 

tstb r7,trstat(r3) yany bad bits? 

bnz b6d 7yes, pass over this block 

cmp ri,trhsti(r3) 

be b6b ;found right trnblk 

add r3.=trnl 

cmp r3,=trnbik+trntot 

bne b6a ;loses if long wait for 2nd trnblk 
Trap 3107,<;No trnblk for inc query - page 303> 
jsb r7,bfixt 

gertyptpribit+talloct+ingtyp 

br b68 


setb trtypIl+1(r3) = #cinctr ;mark block as incomplete 


lda ri,trmidl(r3) 
ior ri,=subtyp 

sub r1,=subtyp-clost 
sta ri,trmidl(r3) 
ldab r7,trstat(r3) 


if byte trstat(r3) .bit. =ttgvba :used an alloc 


call bfixt, gertyptpribit+al loc+ingtyp 


Ida r3,=mlitpkt 
iorm r3,bpkth(r4) 
else 

call bfixt, qertyptpribit+ingtyp 


rreturn alloc 


endif 

lda r7,rmimp(r5) premote imp/ 

Ida r6,rmhost(r5) premote,,local hosts 
Trap 3707,<:Sending inc query - page 303> 

jsb r7,bsend 
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4858 
4818 
7710 
BAIC 
305C 
4078 
4818 
703D 
SAFE 
703D 
4F38 
8A0C 
341D 
707D 
SBO7 
4818 
6739 
SAA3 
88FD 
300D 
4958 
8BEO 
4078 
g90D9 


0370 
C300 
693A 


001C 
2B30 
0100 
A930 


693A 
c300 


693A 
6932 


FFFO 
OECG 
A930 
0010 


2B3A 
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back6: 


b62: 


bGS: 


b66: 
bG64: 
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*** warm page *** 


Ida r5,=<tmnum-1>*tmien 
lda ri,=tmrset+tminit+msto 
tst ri,tstate(r5) 

bnz b64 

sta r5,bmessb(r4) 

jsb r7,hipok 

lda ri,=mstooO ;about 13 seconds 
Ida r3,tmlock(r5) 

bz. <-4 

lda r3,tstate(rs) 

tst r3,=tmrset+tminit+msto jactive and timed out? 
bnz b66 

iorm ri,tstate(r5) 

lda r7,tmimp(r5) 

bm b6S 

Ida r1,=- D8&*2 

tst r3,bittab+< D8*2>(r1)+ 
bz bG7 

bnip b65 

sta rO,tmlock(r5) 

sub r5,=tmlen 

bnin bG2 

jsb r7,hiwm 

br back6 
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5022 
5026 
502A 
SO2E 
5032 
5034 
5038 
503A 
SO3SE 
5042 
5046 
5048 
504C 


SO4E 
5050 
5052 
5054 
5058 


5O5A 
SOSE 
5062 
5066 
5068 
5O06C 


SOGE 


307C 
4078 
4878 
3O7E 
48F9 
705C 
4975 
305E 
7058 
305E 
4975 
485C 
4AE8 


6035 
2036 
4973 
4—E5C 
81FB 


4968 
3O7E 
4078 
S9A04 
4078 
2000 


408C 


QOOA 
39B0 
0010 
jeles<[e) 
0010 
0002 
62E2 
0006 


0012 


oo1Cc 


0012 
0004 
2B88 


1314 


OOOA 


PAGE 67 


bsend: 
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‘e* warm page tt* 


sta r7.hisav7(r4) 

jsb r7,getfre 

lda r7,=data tpacket length 

sta r7,bufe(rs6) ;into packet 

lda r7,=<datat+2>/words ;total words in packet 
Ida r5,btyph(r4) ynew type header 
sub r7,r5 ;in checksum 

sta r5,typh(r6é) ;into type header 

Ida r5,mine ;I’‘m source 

sta r5,srch(r6) 

sub r7,r5 ;in checksum 

Ida r5,=bseqh(r4) 

add rG,=seqh ;where to start copy 
repeat 


Ida r3,(r5)+ 

sta r3,(r6)+ 

sub r7,rg3 

until r5 = =bdata+2(r4) 


endrepeat 


sub 
sta 
jsb 


ifnot zero 
call of lush,whhi 


r6,=data+2 ;put pointer back ta pkt beginning 


r7,chkh(r6) ;save new checksum 
r7,qgvtskc 

:still have buffer. 
:release buffer 


endif 
jmp @hisav7(1r4) 
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; back7 - send resets 
5072 4858 0370 back7: Ida r5,=<tmnum-1>*tmlen 


5076 48EO lda r6,=0 

5078 703D 6932 b71: lda r3,tmimp(r5) 

507C 743D 693A ior r3,tstate+<O&tmrset>(r5) 

5080 8BO2 bnm .+4 

5082 4AE1 add rG,=1 

5084 4958 0010 sub r5,=tmlen 

5088 8BF8 bnm b71 

508A 7828 64D3 Idab r2,tclip+i 

S5O8E 4078 5176 jsb r7,b7sub 

5092 3028 64D2 sta r2,tclip 

5096 4078 2B30 jsb r7,hipok 

509A 4858 0370 Ilda r5,=<tmnum-1>*tmien 

SOSE 703D A930 b72: Ida r3,tmlock(r5) 

SOA2 SAFE bz i-4 

SOA4 703D 6932 Ida r3,tmimp(r5) 

50A8 9B23 bm b73 

50AA 702D 6938 Ilda r2,tmmess(r5) 

SOAE 4BAF and r2,=age . 
SOBO 703D 693A Ida r3,tstate(r5) 

5OB4 4F38 COOO tst r3,=tmrset+tminit 

50B8 SA04 bz b702 ;block is open 
SOBA 4EAF cmp r2,=age ;reach max age yet? 
S5OBC 910A be b74 ;yes, reset 

SOBE 9018 br b73 

50CO 7628 64D2 b702: cmp r2,tclip 

50C4 9215 bg b73 ;not old enuf to reset 
50C6 4038 OOFF eor r3,= HFF 

5OCA 4F38 3CFF tst r3,=tmall+ HFF 

SOCE 8A10 bnz 673 ;wait for cleanup 
S5ODO 4828 8000 b74: lda r2,=tmrset 

50D4 302D 693A sta r2,tstate(r5) 

50D8 702D 6938 lda r2,tmmess(r5) 

S5ODC 4CAF ior r2,=age ;set age to 4 
5ODE 49AB sub r2,=age-<ageO*4> 

50EO 302D 6938 sta r2,tmmess(r5) 

SOE4 48A0 Ida r2,=0 ;no mes num for reset 
SOE6 4078 51D8 jsb r7,bfixt 

SOEA SOOA gertyptpribit+rsbtyp ;reset-the-block message 
SOEC 9035 br b79 

5OEE 300D A930 b73: sta rO,tmliock(r5) , 

SOF2 4958 0010 sub r5,=tmlen 

SOFG 8BD4 bnm b72 


;more back7 over leaf 
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4078 
4858 
48EO 
703D 
8B02 
4AE1 
4958 
8BFA 
7828 
4078 
3028 
4078 
4858 
7030 
SAFE 
703D 
9B17 
702D 
4BAF 
7628 
9211 
702D 
4B28 
4CA4 
302D 
7O7C 
4825 
4078 
SOOE 
4078 
908C 


300D 
4958 
8BEO 
4818 
301C 
4078 
BAFE 
SOF3 


2B30 
0370 


65B2 


0010 
6401 
5176 
64D0 
2B30 
0370 
ASBO 
65B2 
65B8 
64D0 


65B8 
FFFO 


65B8 
4012 


S1E2 
5022 
ASBO 
0010 
0019 


OOOC 
2B3A 


PAGE 69 
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t** warm page *** 


; need to count outstanding reset requests 


b75: 


b76: 


b79: 
back7j: 


b77: 


jsb r7,hipok 

Ilda r5,=<rmnum- 1>*rmlen 
lda r6,=0 

Ida r3,rmimp(r5) 

bnm .+4 

add r6,=1 

sub r5,=rmlen 
bnin b75 

ldab r2,rcliptt 

jsb r7,b7sub 

sta r2,rclip 

jsb r7,hipok 

Ilda r5,=<rmnum-1>*rmlen 
Ida r3,rmlock(r5) 

Loy AM i 

lda r3,rmimp(r5) 

bm b77 

Ilda r2,rmmess(r5) 

and r2,=age 

cmp r2,rclip 


bg b77 
lda r2,rmmess(r5) 
and r2,=-1?age 
ior r2,=4 


sta r2,rmmess(r5) 

Ilda r7,bseqhtfoo(r4) 

lda r2,r5 

jsb r7,bfixr . 
gertyptpribit+rrqtyp ;reset-request message 
jsb r7,bsend 

br back7 


sta rO.rmliock(r5) 

sub r5,=rmlen 

bnin b76 

lda ri,= D25 swait awhile 
sta ri,hitt(r4) 

jsb r7,hiwm 

bnz .-4 

br back7j 
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;Some BACK subroutines 


;decide how old a block must be to be reset 
;if r6<6, r2=max(r2-1.4), else r2=min(r2+i.age) 


5176 4EE6 b7sub: cmp r6,=6 j;want this many blocks 
5178 9206 bg b7sub1 

517A 4AA1 add r2,=1*ageo 
517C 4EAF cmp r2,=age 
517E 8C02 bnl .+4 

5180 48AF lda r2,=age 
5182 4007 jmp (r7) 

5184 49A1 b7sub1: sub r2,=1tageod 
5186 4EA4 cmp r2,=4*ageO 
5188 8202 bng .+4 

518A 48A4 Ida r2,=4*ageO 


518C 4007 jmp (r7) 
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:set up a reply (rfnm, may become rf/al, dead, or ince reply) 
:r3/index to bittab entry for rstate/rmtype. r5/rec’ mes blk 
:r6/bits to change rstate by (eor), r7/return ae 

:set up dead status,mess num, go to bfixc. return ri/rmtype 


518E 356D 65BA bakset: eorm r6,rstate(r5) 


5192 782D 65BF ldab r2,rmihn(rs) : local host 
5196 48E3 lda r6,=3 ;default host status if none’ 
5198 702A 6326 Ida r2,h2pb1k(r2) 
519C SBOA ifnot minus 
S19E 706A O002C Ida rG,deadsc(r2) 
51A2 8A07 if zero 
51A4 786A OO1F ldab r6,hihd(r2) 
51A8 8A02 if zero 
51AA 48EF Ilda r6,=chcup ;just now coming up 

endif 
51AC 4C68 FFEO ior r6,=chnoti ;unknown time 

endif 
endif 

51BO 306C OOI1A sta r6,bdata(r4) ;dead host status in data 
51B4 702D 65B8 lda r2,rmmess(r5) 
51B8 4B28 FFFO and r2,=-1?age 
5iBC 4CA4 jor r2,=4 
51BE 302D 65B8 sta r2.rmmess(r5) 
51C2 4863 lda r6,r3 773: bittab index 
51C4 A2E6 sll r6.6 
51C6 4A2E F800 add r2,=- H800(r6) ;adjust to previous window 
51CA 302C 0012 sta r2,bseqh(r4) 
51CE 702C 4018 Ida r2,bmidh+foo(r4) ;clear it 
51D2 701D 65BC Ida ri.,rmtype(r5) 


51D6 SOOE br bfixc 
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5108 
510C 
51DE 
5S1E2 
5S1E4 
51E8 
S1EC 
S1EE 
51F2 
5S1iF4 
SiF8 
S1iFC 
5200 
5204 
5208 
520C 
5210 
5214 
5216 
S21A 
S521E 
5222 


0012 
0380 


0019 
65B9 


0018 


0015 
FFOO 
0010 
65B2 
0016 
65B7 
0013 
65B6 


0014 
ASBO 
OO01C 
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;set up a back message 


;r2/message number (left half) 
flags for bfixt in th, 


;in line arg: pkt type, 


bfixt: sta r2.bseqh(r4) 
Ilda r2,r5 
add r5,=tmlock-rmlock 
bfixr: srl r2,4 
stab r2,omidhti(r4) 
ldab r2,rmmess+i(r5) 
sri r2,4 ;;luse 
stab r2,bmidh(r4) 
bfixc: Ida r2,(r7)+ 


stab r2,bpkth+1(r4) 
and r2,=<-1>?akbits 
sta r2,btyph(r4) 
Ida r2,rmimp(r5) 
sta r2,bdsth(r4) 
ldab r2,rmcti+i(r5) 
stab r2,bseqh+i(r4) 
ldab r2,rmcti(r5) 
and r2,=fuse/ H100 
stab r2,bpkth(r4) 
sta rO,rmlock(r5) 
sta r5,bmessb(r4) 
jmp (r7) 
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ttt 


pkt code in rh 


;hit message number 


;entry point 

;my block 

7; tmmess 

;luse to low end 


:now get arg 


;just pkt code 
;clear low half 
:for type header 
>i tmimp 


::tmctl :where for. blk # lives 
13: fblock; into our seqh 


;;tmctl ;now for foreign use 
;just the use no. 
; into our params 

33 tmlock 
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IMP .WARM; 1 PAGE 73 *** warm page '** 


; back9 - send give backs 


5224 4FG8 OO3SF b95: tst r6,=tmalt ;reduce alloc time if nz 
5228 9A04 bz b96 
522A 49E1 sub rG,=tmalto 
522C 386D 693E stab r6,tmstp(r5) 
5230 300D A930 b96: sta rO, tmlock(r5) 
5234 4958 0010 b97: sub r5,=tmlen 
5238 8805 bnm b94 
523A 4078 2B3A jsb r7,hiwm 
523E 4858 0370 backg: Ilda r5,=<tmnum- 1>*tmlen 
5242 4878 3C00 b94: lda r7,=tmall 
5246 777D 693A tst r7,tstate(r5) sany allocates? 
524A SAFS bz b97 sno, try next block 
524C 703D A930 lda r3,tmlock(r5) :yes, get into block 
5250 SAFE bz =a 
5252 703D 6932 lda r3,tmimp(r5) rany dest? 
5256 8B03 if minus ;nope 
5258 703D AS3A Ida r3,tstate+foo(r5) ;block is free 
endif 
525C 786D 693E Idab r6,tmstp(r5) sitmalt 
5260 703D 693A Ilda r3,tstate(r5) 
5264 89EO bno b95 ;can’t get a messno 
5266 4B37 and r3,r7 >;=tmall 
5268 SAE4 bz b96 ;alloc was just used 
526A 702D 6938 Ida r2,tmmess(r5) 
526E 4BAF and r2,=age 
5270 7628 64D2 cmp r2,tclip ;see back7 
5274 8204 bng 698 :block is old 
5276 4F68 OOSF tst r6,=tmalt 
0001 -if nz PSE 
527A 8AD5 bnz 695 
FE 
bz b98 salloc is old 
cmp r3,=2'tmallo :more than 2? (was 1) 
bnl b9g5 :nope, don’t give back any 


.ende 
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527C 
S27E 
5282 
5286 
5288 
528C 
52390 
5294 
5298 
529C 
529E 


3BA4 
3BA8 
3BAC 
3BBO 
3BB4 
3BB8 


48B4 
393D 
783D 
AGB1 
383D 
702D 
483A 
303D 
4078 


OOB4 
FCOO 
SAE2 
OOB2 
FCOO 
S2AE 
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PAGE 74 ket warm page *** 
b98: Ilda r3,=tmallO_- H8 ;reduce allocate count 
subbm r3,tstate(r5s) 
Idab r3,tstatet1(r5) ;change message bits 
srl ora, 
stab r3,tstateti(r5) 
Ilda r2,tmmess(r5) 
Ilda r3,=messO(r2) ; increment messno 
sta r3,tmmess(r5) ;restore . 
call bfixt, regtyptpribittgvbtyp ;giveback message 
Ilda r3,bmidh+foo(r4) ;no subtype for no.raw 
lda r3,=mitpkt ; 
iorm r3,bpkth(r4) ;givebacks are multi-packet 
call Itrnput ;set up a trnblk for give backs 
ltrtn: Ida r2,rmmess+<O*tmmess>(r5) :for local use 
sta r2,triuse(r3) :into trn bik 
Ilda r2,bseqh(r4) ymessage /# 
and r2,=mesnum 
sri r5,4 ;block # 
jor r2,=<<rmlock-tmlock>/ D16>(r5) ;recover tm blk number 
sta r2,trhstl(r3) 
Ilda r2,= H4000+ttgvba ;used an allocate 
sta r2,trntim+<Ottrstat>(r3) ;release trnblk 
jsb r7,bsend 7 
sub r5,=tmlock-rmlock ;undo bfixt adjustment 
br b97 
.if z LBig :if code is on Warm 
Itrnput = trnput ; then page swapping in not necessary 
Ah wy 
page LCode 
ltrnput: ;"routine" 1ltrnput ‘ 
setmap mO,mapcod swap from DDT to Warm 
call trnput ;trnput is on Warm page 
setmap mO,mapddt ;and swap back 
jmp ltrtn ;return to main code 


.endc 
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IMP .WARM; 1 PAGE 75 **e warm page *** 
FCOO 0200 page DDTCode 


:dedrea: scans the reassembly blocks and frees up any associated 
swith a dead receive message block 


52DA 4828 GCBO dedrea: Ida r2,=messtk ;set to search reas blk table 
52DE 7OGA 4000 dedd6: Ida r6,reaslk(r2) 


52E2 SAFE bz .-4 

52E4 781A 0003 Idab ri,reasst(r2) ;legal states are 1,2,3 
52E8 9A25 bz ded44 

52EA 4F18 FFFC tst r1,= HFFFC 

52EE 8A22 bnz ded44 

52FO 4F92 tst r1,=2 ;block in use? 

52F2 9A17 bz ded41 :no: ignore free blocks 
52F4 703A 0004 Ida r3,rid(r2) 

52F8 706B 65B8 lda r6,rmmess(r3) 

52FC 7D6A 0007 eorb r6.ruse(r2) 

5300 4B68 OOFO and r6,=luse 

5304 8A17 bnz ded44 ;0ld use- not ours anymore} 
5306 705B 65B2 Ida r5,rmimp(r3) 

530A 9B14 bm ded4d4 ;reset block 

530C 4E92 cmp r1,=2 :got a message started? 
530E 8109 bne ded41 no : 
5310 786A O006 Idab r6,remess(1r2) yreas blk mess num 
5314 796B 65B8 subb r6,rmmess(r3) :less next to give host 
5318 4B68 OOFF and r6,= HFF ; ... mod 256 

531C 4EE7 cmp r6,=7 :should be O-7 

531E SCOA bl ded44 ;nope, lose 


5320 300A 4000 dedd1i: sta rO,reasik(r2) 
5324 4A28 0010 ded47: add r2,=Irblk 


5328 4E28 6E30 cmp r2,=emsstk 
532C 92D9 bg ded4G :more to do 
532E 4008 1BEE jmp tossx 
ded44: : Trap 3202,<;Recovd an old reas block - page 313> 
5332 4078 3868 call lreasf 
5336 SOF7 br ded47 
FCOO 0200 dstolist dedrea 
4EDC 52DA 
4EDE 1CBC 
4EEO 0000 - 
0001 .if nz Lbig 
3868 lreasf = reasf 
TRF 
page Lcode 
lreasf: 


setmap mO,mapcod 
call reasf 
setmap mO,mapddt 
jmp ded47 
.endce 
FCOO 0400 page Warm 
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5C9C 
SCSE 


SCAO 
5CA2 
5CA4 
SCAG 
SCA8 


FCOO 


SCAA 
SCAC 
SCAE 
5CB2 
SCB6 
SCBA 
5CBC 
5CCO 
5cc4 
5CC6 
5CCA 


5SCCE 


0000 
0000 
59370 


SCAA 
3SEBE 
O7D6 
O7D6 
0000 


0400 


1076 
48B0O 
4858 
4078 
3038 
SAO6 
4838 
3438 
9005 
4838 
3338 


6006 


40CO 
1856 
6554 


1000 
62AE 


EFFF 
G2AE 
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;warm page timeout dispatch table 


codtab: 0 ;no config this page 


-if z fmapcd-$maprt 
rupqck 

.ende :;2 Smapcd-tmaprt 
conchk 
gvharel 
rsucceed 
rsucceed 
° 


page Warm 
;checksum configuration 


routine conchk, uses r3, 
lda r3,=0 
Ilda r5,=hacmem 
@ call subchn-conlen 
sta r3,concer 
ifnot zero 
lda r3,=hdcbit 
jorm r3,anom 
else 
lda r3,=<-1>?hdcbit 
andm r3,anom 
endif 
endroutine 


;routing is on this page 


;:jed 
;ihtest 


table 
uses r5 


;init for sub chain 

;checksum it 

;remember error to ease patching 
;checksum bad. 

;it’s not okay 

;remember in anom 


;clear bit in anom 
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1076 
7078 
3078 
4008 
0200 


7058 
4078 
64D4 
704A 
9BiC 
7OSC 
707C 
SAFE 
7O7C 
4B78 
49F 1 
307C 
8A03 
307C 


7O7C 
40FF 
300C 
787C 
3OF8 
4078 


4008 


7078 
3078 
6006 


0200 


0706 
5414 
0706 
O7D6 
O7D6 
O7D6 


OOB2 
FCOO 
5338 


6322 
53D6 
6326 


0020 
404E 


0052 
O7FF 


0052 
0054 


0002 
5382 
404E 
OOOE 
OOAC 
538E 


SBCA 


OOB4 
FCOO 


PAGE 77 *** warm page ttt 


igive all hosts wakeups every 25 milliseconds 
; ihtt counts down waiting for hardware - hitt courts up 
; on hardware and down on software 


page LCode 
routine ihtc,uses ri-rS,arg ri 
setmap mO,mapddt 


jmp jihtc 

page ddtcode 

jihte: 

Ilda r5,hosts slimit of wakeup index 
call chktc,mi#tcgo :get an index to do now 


Ilda r4,h2pbIk(r2) ;access host block 
ifnot minus snot inactive 

Ilda r5,iobloc(r4) 

lock ihloc(r4) 


lda r7,ihtt(r4) :first, count IH timer 
and r7,= H7FF ;keep it reasonable 
sub r7,=1 
sta r7,ihtt(r4) 
if zero ;time to reset ih 

sta r7,ihgoin(r4) 
endif 


lda r7,hostyp(r4) ;do fast host timeouts 
call @hftable(r7) :special for fakes 
unlock ihloc(r4) 
ldab r7,hotpid(r4) 
sta r7,@pid 
call hitc ;do common BACK/HI checks 

endif 

jmp xihtc ; 

page LCode 

xihtc: 

setmap mO,mapcod 


;poke host output 


endroutine ihtc 
Page DDTCode 


:fast timeout host checking routines 
table hftable 


rsucceed :reals need none 

fasfak :fakes get a little help 
rsucceed ;(VOH: VDHF ) mE 
rsucceed :;TIPs: none 

rsucceed ;spare 

rsucceed ; spare 


endtable hftable 
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IMP .WARM; 1 PAGE 78 *** warm page *** 

;HITC 

;perform checks for HI/BACK at 25 ms timeout 
538E 1076 routine hitc,arg r4-r5,uses r3 
5390 48B1 Ida r3,=1 
53982 707C 4000 Tock lockhi(r4) 
5396 SAFE 
5398 707C OO0O0C Ilda r7,hitt(r4) 
539C 9SA10 ifnot zero 
S3SE SBO4 ifnot minus ;waiting for imp; don’t reset. 
53A0 313C OO00C subm r3,hitt(r4) : 
53A4 900C else ;waiting for host 
53A6 323C OOOC addm r3,hitt(r4) 
53AA 8A09 if zero ;reset after 30 seconds. 
53AC 48F8 Ilda r7,=hirset ;note reset happened’ 
53AE 3C7C OO1E jiorbm r7,hibits(r4) 
53B2 707C 0002 Ida r7,hostyp(r4) ;:VDH :what type host 
53B6 9BO03 ifnot minus ;;forbak ;no back hosts please 
53B8 40FF S3CA call ®hrtable(r7) ;do the right reset 

endif 
endif 
endif 
endif 

53BC 300C 4000 unlock lockhi(r4) 
53CO 787C OOOF ldab r7,hinpid(r4) 
53C4 30F8 OOAC sta r7,@pid 
53C8 6006 endroutine hitc 

;routines to reset hosts 
S53CA table hrtable 
53CA S4iA resreal ;reset real host hardware 
53CC O7D6 rsucceed ; fakes - do nothing 
53CE O7D6 rsucceed :(VDH: VDHITO) 
53D0 O7D6 rsucceed ;TIPs: none 
53D2 O7D6 rsucceed :Spare 
53D4 O7D6 rsucceed ;Spare 


endtable hrtable 
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7 CHKTC 

;Compute a new index for IHTC/BTC to use 

scalled with R1/ PID just fielded (IHTPID/BTCPID), 
;inline R4/ pointer to TCGO/TBKGO, R5/ Timit for R4 


53D6 6047 routine chktc,arg ri/rS,inline r4,uses r2-rS5,result r2,nosave 

53D8 702C 0002 Ilda r2,words(r4) ;first, validate limit word 

53DC 9BO3 if minus } r2 > r5 ; troubles 

53DE 4E25 

53EO 8CO3 

53E2 305C 0002 sta r5,words(r4) ;force a good value 
endif 

53E6 702C 4000 lock r2,m3-mi(rd) :gqet proper index 

S3EA SAFE 

S3EC 49A2 sub r2,=2 ;next to check 

SSEE 4832 jda r3,r2 

53FO 9BO4 if minus } zero } r3 > r5 ;out of rande? 

53F2 9A03 

53F4 4E35 

53F6 8Cc0O2 

S3F8 4835 Ilda r3,r5 :set it high again. 
endif 

53FA 763C 0002 @ if r3 = words(r4) ;end of a cycle 

53FE 8107 

5400 49B2 sub r3,=words supdate limit 

5402 8A02 if zero ;reacjed bottom end 

5404 4835 Ida r3.r5 ;use highest index 

endif 

5406 303C 0002 sta r3,words(r4) ;new cycle limit 

540A 93003 else 

540C 3098 OOAC sta r1,®pid ;poke ourselves 
endif 

5410 3034 unlock r3,(r4) yand new current index 

5412 4807 endroutine chktc 


;routine to run at fast timeout for fakes 


routine fasfak,nosave,arg r4,uses mi 
5414 781C 401F ldab ri,hihd+foo(r4) :;fakes arg always up 
5418 4807 endroutine fasfak 


y;routine to reset real hosts 


routine resreal,nosave,uses ri 
541A 4818 0100 lda r1,=hreset+<<data& HF>/2> ;;trledr 
541—E 301D 0006 sta ri,statih(rs) :reset a real host 
5422 4807 endroutine resreal 
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3BD6 7078 OOB2 
3BDA 3078 FCOO 
S3BDE 4008 542C 


542E 4078 53D6 


5434 704A 5424 
5438 4078 538E 
543C 4008 3BE2 


3BE2 7078 OOB4 
3BE6 3078 FCOO 


PAGE 80 *** warm page *** 
;BTC 

;Check back hosts every 25 ms 
;Calls HITC for most of its work 
page DDTCode 


b2pbIk: bbkO,bbk1,bbk2,bbk3 jback hosts 


b2pend: .blkw O 


page LCode 
routine btc,ara ri.uses ri-rs 
setmap mO,mapcdt 


jmp jbtc 

page ddtcode 

jote; F 
Ilda r5,=b2pend-b2pb1k :;limit for our index 
call chktc,mi/tbkaqo ;get next offset to check 
Ilda r4,b2pbI1k(r2) spoint to back host_ 
call hitc ;and do the checks 
jmp xbtc 

page LCode 

xbtc: 

setmap mO,mapcode ;set map for loop 


endroutine btc 
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.comnt | 


We get here from the pid dispatch when it discovers the 
stkpid value. The pid value is in ri. The next pid is removed 
from the ring buffer, and written to the pid. 


FCOO 0400 page Warm 
5CDO 1076 routine rstgo, arg r1, uses r2 
5CD2 7078 A4B2 lock ringlk ; lock the ring buf. 
5CD6 SAFE 
5CD8 7078 G4B4 Ilda r7,ringe ;number of entries in the buffer. 
SCDC 9A13 ifnot zero 
SCDE 49F1 sub r7,=1 ;decrease number of entries. 
SCEO 3078 64B4 sta r7,ringc . 
S5CE4 9AO03 ifnot zero ;entries left in ring buffer. 
5CE6 3098 OOAC sta r1,@pid ;poke the stkpid. 
endif 
SCEA 7078 G4BG Ida r7,ringf ;address of next entry in ring. 
5CEE 6827 Idab r2,(r7)+ :get the next pid from ring... 
SCFO 30A8 OOAC sta r2,®pid ;...and poke the pid with it. 
5CF4 4E78 64D0 if r7 >= =ringe ;past last word of buffer. 
S5CF8 9203 
SCFA 4878 64B8 Ilda r7.=ring 7yes, re-initialize pointer. 
endif 
SCFE 3078 G4B6 sta r7,ringf ;update the next entry pointer. 
endif 
5D02 3008 A4B2 unlock ringlk sunlock the ring. 


5DO6 6006 endroutine rstgo 
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ihpack: 

repeat 
5D08 701C OO56 set ri = ihwq(r4) ;queue to use 
S5DOC 4078 154A call deque,whih ;SP okay from IHDB call after leader 
5D10 0040 , 
5D12 SA3E bfail iher2 ;end of queue before EOM? 
5D14 300C 405C unlock lockih(r4) :done queue lock 
5D18 302C 0068 set ihbuff(r4) = r2 ;remember buffer we’re sending 
5D1C 4831 set r3 = ri : 

ihcump: ;cum stats hook. ‘ 
5D1E 7079 OOSC set ihbufb(r4) = bufb(r1) ;Ssave stuff from buffer 
5D22 307C OOGA 
5D26 7079 0008 set ihseqh(r4) = seqh(r1) ;only important on last buffer 
5D2A 307C OOGE 
5D2E 7079 OOOA set ihpkth(r4),r7 = pkth(r1) ;returning PKTH in R7 
5D32 307C OO6C 
5D36 721B 0030 add ri,bufe(r3) ;bufe has length in bytes 
SD3SA A2F1 sit rv zi; 1stpkt ;put Istpkt bit in sign 
5D3C SBO6G ifnot minus > ;hendf ;not last packet. 
5D3E 707B OOSC set r7 = bufb(r3) jmes blk? 
5D42 9903 ifnot odd ;not raw packet, thus no eom bit. 
5D44 4B18 7FFF and r1,=-1?hendf ;clear eom bit 

endif 
endif 

5D48 7078 OOD2 setmap m2,mapv2 ;now get buff start 


S5D4C 3078 FCO4 
5D50 707A FCBO set r7 = point-chain(r2) 


5D54 4AF1 add r7,#data/ H10 ;data is 10} into ‘buffer 

5D56 307D 0008 set starto(r5) = r7 ;do reliability check in a little while 

5D5A 4838 1FFE and r3,#packm ;prepare for FSIOUT 

SD5E 482B 8010 set r2 = #m2+data(r3) ;get to buffer start 

5D62 4837 set r3 = r7 ;proper STARTO value 

5D64 707C 0002 set r7 = hostyp(r4) snow by host type 

5D68 40FF 12CA call @hotable(r7) :do output stuff 

5D6C 301D OOOA set endo(r5) = ri :start output 

5D70 301C 0058 set ihlstp(r4) = ri ;remember end flag 

5D74 4078 191C call ihdb ;wait for output of packet 

5D78 702C 4068 set r2 = ihbuff+foo(r4) ;get packet just sent 

SD7C 4078 1512 call unpack imap it in for IHDONE, trace 
trcih: ;trace hook 

5D80 707C 0058 set r7 = ihtstp(r4) 

5D84 9B29 bminus ihdone ;done last packet 

5086 4078 1i31E call flushb,whih :flush pkts 1! - n-1. 

5D8A 0040 


5D8C SOBE endrepeat 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 323 


IMP .WARM; 1 


SD8E 
5DS0 
5D92 
5094 
5D98 
5SDSA 
5D9C 
5DAO 
SDA4 


SDAG 


5DA8 
SDAC 
SDAE 
5DBO 
SDB4 
SDB6 
5DB8 


SDBC 


SDBE 


50C0 
5pC4 
5DC8 
5DCC 
5DDO 


5DD4 


EGES8 
9002 
E6C2 
703C 
48F 14 
3073 
303B 
300C 
g05C 


1076 


707D 
AGF4 
4073 
4B78 
9A04 
ESOB 
303D 


6006 


1076 


302D 
4878 
347D 
787D 
3OF8 


6006 


0056 


0002 
405C 


OOOA 


O1FF 


0008 


0012 
2000 
oo00c 
OOOE 
OOAC 


PAGE 83 to* warm page '"* 


;various IH error handlers 


jher2: Trap 3350,<;Bad ih queue struct - pace 321> 


br iherre ‘ 
iherr: Trap 3302,<;:Bad buffer on host queue - page 321> 
iherre: set r3 = ihwq(r4) ;recover queue : 

set (r3) = =1 

sta r3,ehq-shq(r3) ;;ehpq 
iher3: unlock lockih(r4) 

br ihex2 


sroutine to check real host output start pointer write 
routine hsiout,arg r3/r5 


Ida r7.endo(r5) 
srl r7,4 
eor r7,r3 ;compare old STARTO 
and r7,=packm_-4 ;bits to be checked 
ifnot zero 
Trap 3013,<;Start ptr write failed ~ page 321> 
sta r3,starto(rs) yretry just once 
endif 


endroutine hsiout 
sand one for fakes 
routine fsiout,arg r2/r5 
sta r2,fakeso(r5) 
Ilda r7,=hbusy 
iorm r7,statoh(rs) 
Idab r7,hbpid(r5) 
sta r7,@pid . 


endroutine fsiout 


745 


Pluribus IMP 1301 


IMP .WARM; 1 


300C 
705C 
3018 
781C 
703C 
AGB4 
4868 
4078 
o0o3Cc 
7068 
705C 
992C 
7O1C 
A694 
7070 
SAFE 
751D 
4B18 
BA2A 
787C 
4AF8 
797D 
4878 
4EF7 
9C21 
A2F2 
703F 
343D 
7O1C 
8B03 
343D 


4B9F 
4E93 
8105 
743F 
343D 


300D 
4878 
30F8 
4078 
0040 
781C 


405C 
0016 
O17E 
oo6D 
OO1A 


O2F8 
5B24 


O17E 
OOGA 


OO6C 
ASBO 


65B8 
OOFO 


OOGE 


65B8 
OOF F 


OEBG6 
65BA 
OO6C 


65BC 


OEB8 
65BC 


ASBO 
002C 
OOAC 
131A 


OOOE 
OOAC 
19D6 


ASBO 


PAGE 84 


ihdone: 


ihex: 


ihex2: 


ihr2: 
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sta rO, lockih(r4) 


set r5 = ihledr+dsti(r4) 
sta ri,temp! 
setb ri = ihpkth+1(r4) 


lda r3,ihledr+tenl(r4) 
srl r3,4 

Ilda sp,=Istack 

call hothru,htpmfn 


lda 
set 

bo 
set 
srl 
lda 


r6,temp1 

rS = ihbufb(r4) 
ihex 
ri= 
ri,4 
r7,rmiock(rs) 
bz .-4 

eor ri,rmmess(r5) 
and ri,=luse 


ihpkth(r4) 


;raw pkt: 


;used saved leader 


;used copy of PKTH 


;count host throughput 


;use saved BUFB 
no rfnm 
;use saved PKTH 


;position our use mimber 


bnz ihr2 ;wrong luse, but ‘normal’ 
setb r7 = ihseqh(r4) ;use saved SEQH 
add r7,= D8 :from last 8 

subb r7,rmmess(r5) 

and r7,= HFF ; mod 256 

cmp r7,=7 

bl ihr2 ;mes num out of range 

BET r%,2 


lda r3,bittab(r7) 
iorm r3,rstate(r5) 
set ri = ihpkth(r4) 
if minus 

iorm r3,rmtype(rs) 
endif 
and ri,=pktcod 
if ri = #inmtyp 


ior r3,bittab+2(r7) 
iorm r3,rmtype(rs) 
endif 
unlock rmlock(r5) 
lda r7,=bkOpid 
sta r7,@pid 
call of Ishb,whih 


Idab r1,hotpid(r4) 
sta r1,@pid 
jmp iho 


sta rO.,rmlock(rs) 


Trap 3230,<;Bad rm blk for mes on host q - page 322> 


br ihex 


sreply now 
;use saved PKTH 


imark rftal 


;type of this buffer 
;is it an incomplete? 


:get type/state = 3 
;in rally table. 


:flush buffer. 
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- INSERT “FAKSUB" 
- INSRT FAKSUB 


uribus IMP 13014 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 326 
FAKSUB.PLR; 1 PAGE 1 Fake Host Subrouines 


-Stitle Fake Host Subrouines 
;Fake Host Common Routines 


page LVars 
0008 nstrip = D8 ;nominal strip = 800 microseconds 
0286 ptime: -blkw 1 :time we should quit this strip 
FCOO O600 page FakCode 


;DOZE 
;Put the Fake Host "JAM" (Host-to-IMP) side to sleep. 
;Saves everything, expects map 1, R5 set up 


40EO 1076 routine fdoze,arg r5/mt,local ri-r4,local m2 
40E2 1016 

40E4 1026 

40E6 1036 

40E8 1046 

40EA 7078 80BE 

40EE 1076 


S3BEC 1076 global doze = fdoze 
SBEE 7078 40BE 

3BF2 1076 

3BF4 7078 OOB6 

3BF8 3078 FCOO 

3BFC 4078 40E0 

3CO0O 4008 1BCE 


FCOO O600 
40FO 306D 0018 sta sp,dozesp(r5) :put away stack pointer 
repeat ;while fake HST busy 
40F4 300D 0014 unlock O/lockfd(rs5) : 
40F8 4008 1072 jmp loopmyv :back to LOOP 
page LCode 
dozew: ;PID entry here: arg ri/mi/m3 
3004 7078 OOBG6 lda r7,mapfak 
3C08 3078 FCOO sta r7,%mapo 
3coc 4008 40FC jmp fdozew 
FCOO O600 page FakCode 
fdozew: 
40FC 7OF8 O1A4 Ida r7,@lclock ;use STAGE’s clock 
4100 4AF8 add r7,=nstrip ‘ 
4102 3078 0286 sta r7,ptime ;when we should quit 
4106 7059 81CO Ida r5,mbliks(r1) ;restore fake host block 
410A 707D 4014 lock lockfd(r5) ;get fake lock 
410E SAFE 
4110 990A ifnot odd ;not new or broken lock 
4112 706D 0018 lda sp,dozesp(r5) :get back stack pointer 
4116 9AO7 ifnot zero snot newly initialized 
4118 707D 0006 Ilda r7,statih(rs5) ; fake HST output 
411C 4F78 2000 break if r7 .bit. =hbusy :return if host can run 
4120 8AOB 
4122 9O0E9 next ;sleep if nothing to do 


endif 


4124 
4128 
412A 


412C 
4130 


4134 
4136 


4138 
413C 


4078 
4EF8 
8205 


486D 
408F 


90EO 
6076 


TO7F 
3078 


418C 


OO4E 
4E2A 


OOBO 
FCO4 


endif 
call pfbnum 
if r7 < #nfh2 


;get h2pblk offset 
;only for software fakes 


; Trap 1760,<:Init Jam Fake Host - page 324> 


lda sp, /%dzstack(r5) 
jmp @®dozepc(r7) 
endif 
endrepeat 


endroutine fdoze 


:empty stack 
:initial dispatch 
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4140 6046 
4142 6036 
4144 6026 
4146 6016 
4148 6006 
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414A 
414C 
4150 
4152 


3C10 
3C12 
3C16 
3C18 
3C1iC 
3C20 
3024 
FCOO 


4154 
4158 
415C 
4160 
4162 
4166 
416A 
416E 
4170 
4174 
4176 
417A 


417E 
4180 
4182 
4186 
418A 


418C 
418E 
4190 
4192 
4196 
4198 


80BE 


40BE 


OOBG 
FCOO 
414A 


0002 
FCO4 
0010 


FFFE 
0004 
1FFF 
4224 


0010 
424E 


OOBO 
FCO4 


OOF F 


PAGE 2 Fake Host Subrouines 


; JAM 

;Send one word of data through the fake Host interface. 
;Call with R5/fake Host block, M1/ IMP Vars page. 

;Data word in R1 


routine fjam, arg ri, arg r5/mi, local m2, local ri,uses m3 


global jam = fjam 


lda r7,starti(r5) : high-order memory address 
sta r7,%map2 


lda r7,fakesi(r5) : input buffer pointe 


sta ri,(r7)+ :stash the word . 
Ilda ri,=-hrdoff(r7) ;where it went 
sub r1,endi(r5) :last word to fill 
and r1,=O/7-1 
if zero :end of buffer 
call jampkt 
else 
sta r7,fakesi(r5) :save buffer pointer 
call jamchk ;check if rest time 
endif 


endroutine fijam 


yroutine to calculate H2PBLK index into R7 


routine pfbnum,result r7,arg r5 
set r7 = (r5) ::statd 


add r7,=nfh :fakes are low in H2PBLK 
and r7,# HOFF ;kill overflow, interface type 


svt et,.4 sand double for byte offset 
endroutine pfbnum : 
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419A 
419C 
419E 
41h0 


3C26 
3C28 
3c2c 
3C2E 
3C32 
3C36 
3C3A 
FCOO 


41A2 
41A6 
41AA 
41AC 
41AE 
41BO 
41B4 
41B6 
41B8 
41BA 
41BE 
41C2 
41C4 
41C8 


41CA 
41CCc 
41D0 
41b2 


41D4 
41b8 
41ipc 
41EO 
41E2 
41E4 
41E6 


41E8 
41EC 
41EE 
41FO 
41F2 
41F4 
41F6 


1076 
1016 
1026 
1036 


1076 
7078 
1076 
7078 
3078 
4078 
SOE3 
0600 


4078 
7O7F 
8B03 
E3FS 
901D 
7O7F 
9A03 
ESF8 
9018 
7010 
3018 
A294 
4B18 
48BC 


6072 
2079 
49B2 
8AFC 


7078 
3078 
4078 
6036 
6026 
6016 
6006 


4078 
6036 
6026 
6016 
6076 
4FFO 
4007 


40BE 
OOBG 


FCOO 
419A 


418C 
6326 


0032 


0002 
FCO6 


1FFF 


AOOO 


OOoDO 
FCO6 
4236 


4224 
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10:57:29 PAGE 329 


;JAM all 6 words of a new format leader. 


;Call with pointer to the leader 


:Mi/ IMP Vars page. 


routine fjamleader,arg r2/m1/m2,arg r5/mi,local ri-r3,result m3 


global jamleader = fjamleader 


call pfbnum 
set r7 = h2pblk(r7) 
if minus 


Trap 1771,<;No host block - 


else 
Ida r7.,hibf(r7) 
ifnot zero 


Trap 1770,<;Host wanted a 


else 
Ilda ri,starti(r5) 
sta r1,%map3 
sll ri,4 
and r1i,#O/#-1 
lda r3,=lenl+words 
repeat 
Ida r7,(r2)+ 
sta r7.m3(ri)+ 
sub r3,=words 
until zero 
endrepeat 
setmap m3,mapvar 


call jamhol 
return 


endif 
endif 
call jampkt 
fail return 


in R2, R5/fake Host block, 


;get H2PBLK index 
;and host block 
;no host? 

page 327> 


;host’s input buffer 
;host expecting a message 
buffer - page 327> 
;packed start address 
;use map 3 

;uNpack 

slength of leader 

snext word from caller 
;into input area 

;count a word 


;restore map 3 


smark transfer complete, DOZE 


;do a 1-word transfer, DOZE 
;Signal failure to caller 
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endroutine fjamleader 


Pluribus IMP 1301 


FAKSUB.PLR; 1 


41F8 
41FA 
41FE 


3C3C 
3C3E 
3C42 
3C44 
3048 
3C4C 
3c50 
FCOO 


4200 
4204 
4208 
420C 
4210 
4214 


4218 
421A 
421E 
4222 


1076 
7078 
1076 


1076 
7078 
1076 
7078 
3078 
4078 
90D8 
O600 


4078 
4818 
707D 
3078 
309D 
4078 


6076 
TO7F 
3078 
6006 


80BE 


40BE 


OOB6 
FCOO 
41F8 


414A 
8000 
0002 
FCO4 
0010 
4224 


OOBO 
FCO4 
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PAGE 4 Fake Host Subrouines 


; JAMEND 


PAGE .330 


;Send last data word (via JAM) and then one padding word 
7Call with R5/fake Host block, Mi /IMP Vars page 


;R1 has word to send 


routine fjamend, arg ri, 


global jamend = fjamend 


call fjam 

Ida r1,=sign 

Ida r7,starti(rs) 
sta r7,%map2 

sta r1,@fakesi(r5) 
call jampkt 


endroutine fjamend 


arg r5/mi, local m2, uses ri, 


;first send the data word 
:and then padding 
shigh-order buffer address 


;put it into buffer 
:mark packet done 


result m3 
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4224 


4226 
422A 
422E 
4230 


4234 
4236 


4238 
423C 
4240 
4244 
4248 


424C 


424E 


4250 
4254 
4258 


425A 
425C 


425E 


4262 
4266 


426A 


1076 


707D 
4B78 
4c71 
307D 


9002 
1076 


707D 
4878 
307D 
3OF8 
4078 


6006 


1076 


7078 
71F8 
8B09 


9002 
1076 


787D 


30F8 
4078 


6006 


0010 
1FFF 


0004 


0006 
OFFF 
0006 
OOAC 
40E0O 


0286 
O1A4 


OOOF 
OOAC 
40EO 


PAGE 5 Fake Host Subrouines 
;Auxiliary fake host routines 


; JAMPKT 

;Mark this input complete and poke the proper HI process 
sExpects R5/fake Host block, M1/IMP Vars paqe. 

;R1 has proper state for end bit (O or 8000 if EOM). 
;Enter at JAMHOL with literal word for ENDI (for fast 
:message generator). 


routine jampkt, arg r1, arg r5, arg mi, result m3 


lda r7,fakesi(r5) ;current buffer pointer 

and r7,=O/4-1 yonly low-order address bits 
tor F7 Pq ;end-of-message bit 

sta r7,endi(rs) set up "hardware" 


entry jamhol, arg rS, arg mi, result m3 


lda r7,statih(rs) shost input status 
and r7,=-1?hbusy ;clear busy bit 
sta r7,statih(rs) 

sta r7,@pid sand poke the PID 
call fdoze rawait Host’s poke 


endroutine jampkt 


7; JAMCHK, JAMPOK 

;JAMCHK checks if time for strip break, and does it. 
;JAMPOK always breaks. DOZE after poking ourselves. 
;Expects R5/fake Host block, M1/IMP Vars page 


routine jamchk,arg r5/mi,result m3 


Ilda r7,ptime ;time for a rest? 
sub r7,@1clock 
if minus :rest, but come right back 


entry jampok, arg r5, arg mi, result m3 


ldab r7,bhpid(rs) ;JAM side pid 
sta r7,@pid 
call fdoze 

endif 


endroutine jampok 
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426C 
426E 
4270 
4272 


4274 
4278 
427C 
427E 
4280 
4282 
4286 
4288 
428A 
428C 
4290 
4294 
4296 
429A 
429E 
42A2 
42A6 
42AA 
42AE 
42B2 


42B4 


42B8 
42BC 
42C0 


42C4 
42C6 
42C8 
42CA 


1076 
1016 
1036 
1046 


4078 
7O4F 
8B03 
E3FD 
9022 
703C 
8A03 
E3FC 
901D 
7019 
7638 
9110 
7078 
3078 
302C 
704B 
TO7A 
3078 
304A 
4823 


4B18 


301D 
4078 
4078 


6046 
6036 
6016 
6006 


418C 
6326 


0032 


00s0 
63CA 


ooD2 
FCO4 
0032 
O6GAO 
OGAO 
OGAO 
O6AO 


OFFF 
0004 


4236 
4224 


PLURIBUS V2.9B 
PAGE 6 


> FJUAM1B 


25-Jun-87 
Fake Host Subrouines 


10:57:29 PAGE 332 


;Routine to send one buffer’s worth of data to a host 


;Traps 


if host code was expecting a leader 


routine fjamib,arg ri-r2/m2/r5,local ri,local r3-r4,result r2 


call pfbnum 


set r4 = h2pblk(r7) ;this guy needs R4 
if minus ;no host? 
Trap 1775,<;No host block? - page 330> 
else ;host exists 
set r3 = hibf(r4) 
if zero ;host wants leader 
Trap 1774,<;Host wanted a leader - page 330> 
else 
set ri = bufe(r1) ;remember endpointer 


if r3 <> junk 
setmap m2.mapv2 
hibf(r4) 


r4 = 
where-chain(r3) 


set = r2 
set 


set 


where-chain(r2) 
n2 = KS 


set 
set 
endif 
and ri,#sign#-1 


set endi(r5) 
call jamhol 
call jampkt 
endif 
endif 


u 


rd 


endroutine fjamib 


where-chain(r3) 


;don’t flush the’ junk buffer 
;get to buffer variables 


shost’s new buffer 
; trade buffer usage 
= where-chain(r2) 


= r4 

;return host‘s input buffer 
;make a proper XOM offset and 
;retain sign (EOM bit) 
;set endpointer for host 
;mark transfer complete 
:set endptr. poke host 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 333 
FAKSUB.PLR; 1 


42CC 


42CE 
42D2 
4206 


42D8 


3c52 
3C54 
3C58 
3CSA 
3C5E 
3Cc62 
3C66 
FCOO 


1076 


4078 
4078 
0800 


6006 


1076 
7078 
1076 
7078 
3078 
4078 
90CD 
O600 


426C 
131E 


40BE 


OOB6 
FCOO 
42CC 


PAGE 7 Fake Host Subrouines 
; JAMBUF 
;Send a buffer to HI : 
;Calls FJAMIB to send it, FLUSHB to free buffer returned 
;from HI. 
routine fjambuf,arg ri-r2/m2/r5 

call fjamib ;send a buffer 

call flushb,whv2h saget rid of buffer from HI 


endroutine fjambuf 


global jambuf = fjambuf 
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;SUCK side Routines 


;WAIT 
;Put the fake Host SUCK side to sleep 
;Call with RS/fake Host block, M1/IMP Vars page. 


42DA 1076 routine fwait. arg r5/m1, local m2, local ri-r4,result m3 
42DC 7078 80BE ‘ 

42EO 1076 

42E2 1016 

42E4 1026 

42E6 1036 

42E8 1046 


3C68 1076 global wait = fwait 
3C6A 7078 4OBE 

3CGE 1076 

3C70 7078 OOBG 

3C74 3078 FCOO 

3078 4078 42DA 

3C7C 90C2 

FCOO 0600 


42EA 306D OO1A sta sp,waitsp(r5) ;Stash away stackpointer 
42EE 300D 0016 unlock O/lockfw(rs) ;and free the lock 
42F2 4008 1072 jmp loopmv 


page LCode 
waitw: ;PID entry here: argri/mi/m3 
3C7E 7078 OOBG lda r7,mapfak 
3C82 3078 FCOO sta r7,%mapo ;get to FAKE page 
3C86 4008 42F6 jmp fwaitw 
FCOO O600 page FakCode 
fwaitw: 
42F6 7OF8 O1A4 lda r7,@lclock suse STAGE’s clock 
42FA 4AF8 add r7,=nstrip 
42FC 3078 0286 sta r7,ptime ;when we should quit 
4300 7059 81CO Ida r5,mblks(r1) ;get proper fake Host block 
4304 707D 4016 Tock lockfw(r5) :lock it 
4308 SAFE 
430A S90E ifnot odd ;Not new or broken lock 
430C 706D OO1A Ida sp,waitsp(r5) ;restore common stack 
4310 SAOB ifnot zero :Not a new block 
4312 6046 return ;continue the fake 
4314 6036 
4316 6026 
4318 6016 
431A 6076 
431C 707F OOBO 
4320 3078 FCO4 
4324 6006 
endif 
endif 
4326 4078 418C call pfbnum 7;Get host index 
432A 4EF8 if r7 < Anfh2 ;A standard fake host 
432C 8205 


: Trap 1761,<:Init IMP Fake Host - page 332> 


) 759 
432E 486D 0080 set sp = #wtstack(r5) ;Get an empty stack 
4332 408F 4E£22 jmp ®waitpc(r7) :And start fake at top 
endif = 


;non-IMP fakes may die here... 
4336 SOEE endroutine fwait 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 335 
FAKSUB.PLR;1 PAGE 9 Fake Host Subrouines : 


; SUCK 

;Get one word of data from the Host IH side. 

;R1 returns the data. Call with R5/fake Host block, 
7M1/IMP Vars page. Fail return with last data word 
;Of a message. 


4338 1076 routine fsuck, arg r5/m1, uses m3, result ri, local- m2 
433A 7078 80BE 


3C8A 1076 global suck = fsuck 
3C8C 7078 40BE 


3C92 7078 OOB6 
3C96 3078 FCOO 
3C9A 4078 4338 


SCSE 90OB1 
FCOO O600 

repeat 
4340 707D OOO0Cc Ilda r7,statoh(r5) ;Host output state 
4344 4F78 2000 until r7 .bit. =hbusy ;until sending data 
4348 8A04 
434A 4078 42DA call fwait 
434E SOFS endrepeat 
4350 707D 0008 Ida r7,starto(r5) s;high-order buffer address 
4354 3078 FCO4 sta r7,%map2 
4358 707D 0012 lda r7,fakeso(r5) ;buffer pointer 
435C 7017 Ilda r1,(r7) ;next data word 
435E 757D OOOA eor 7,endo(r5) ;match buffer limit? 
4362 4F78 1FFF if r7 .bit. =O/#-1 ;more bits this packet? 
4366 9AO9 
4368 707D 0012 lda r7,fakeso(r5) ;restore fakeso 
436C 4AF2 add r7,=words ;on to next word 
436E 307D 0012 sta r7,fakeso(r5) ;Save pointer 
4372 4078 4420 call sukchk :strip break if time 
4376 900C else 
4378 4078 43F8 call sukpkt ;complete the buffer 
437C 8A09 if fail ;was EOM 
437E 6076 fail return ;Signal caller 
4380 7O7F OOBO 
4384 3078 FCO4 
4388 6076 
438A 4FFO 
438C 4007 

endif 

endif 

438E 6076 endroutine fsuck 


4390 707F OOBO 
4394 3078 FCO4 


® 
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;SUCKLEADER 


;SUCK in a complete leader 

:Call with R2/leader buffer to Fill, RS/fake Host block 
7M1/IMP Vars page. Calls SUCK to do its work. 

;Fail return if EOM in leader. 


routine fsuckleader, arg r2/m1/m2, arg r5/mi, uses m3, local ri-r3 


3CAO 1076 global suckleader = fsuckleader 
3CA2 7078 40BE 


3CA8 7078 OOBS 
3CAC 3078 FCOO 
3CBO 4078 439A 


3CB4 SOA6 
FCOO O6GO0O 

repeat ;until host posts output 
43A2 707D OOOC lda r7,statoh(r5) ;output status 
43A6 4F78 2000 until r7 .bit. #hbusy suntil “active" 
43AA 8A04 
43AC 4078 42DA call fwait :get control later 
43BO SOFS endrepeat 
43B2 701D 0008 Ida ri,starto(r5) raet map setting 
43B6 4B18 FEOO and r1,/mapmsk 
43BA 7618 OODO if ri <> mapvar ;not sending a leader 
43BE 9107 
43CO E3SFA Trap 1772,<;:Host sending a buffer - page 334> 
43C2 4878 FFFF Ilda r7,#-1 ;make an illegal msg type 
43C6 307A 0002 sta r7,typl(r2) 
43CA SOOA else 
43CC 751D 0008 eor ri,starto(rs) ;just page offset 
43D0 A294 sll ri.4 smake XOM pointer 
43D2 48BC Ida r3.,=lenl+words ;count words 

repeat 
43D4 6079 6000 Ida r7,mi(ri)+ timapvar ;next leader word 
43D8 2072 sta r7,(r2)4 ;into caller’s area 
43DA 49B2 sub r3,=words 
43DC 8AFC until zero ;done the 6 words 
endrepeat 

endif 
43DE 4078 43F8 call sukpkt imark interface idle 
43E2 8A07 if fail ;was just a leader ~ 
43E4 6036 fail return :let caller know 
43E6 6026 
43E8 6016 
43EA 6076 
43EC 4FFO 
43EE 4007 

endif 


AQEN enre andrantinae feck leader 


9009 S4EP 
9109 vsaer 
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43F8 


43FA 
43FE 
4400 
4404 
4408 
440C 
4410 
4414 
4416 
4418 
441A 
441C 


441E 


4420 
4422 
4426 
442A 


442C 
442E 


4430 


4434 
4438 


443C 


443E 


4440 
4444 


4446 


1076 


707D 
1076 
707D 
4B78 
307D 
30F8 
4078 
6076 
8B04 
6076 
4FFO 
4007 


6006 


1076 
7078 
71F8 
8B09 


9002 
1076 


787D 


3OF8 
4078 


6006 


1076 


4078 
8AFE 


6006 


OOOA 


oooc 
DFFF 
oo0oc 
OOAC 
4420 


0286 
O1A4 


OOOE 
OOAC 
42DA 


43F8 


PAGE 11 Fake Host Subrouines 

;Auxilliary SUCK side fake Host routines 

; SUKPKT 
;Marks the current buffer complete and pokes the IH side 
:Enter with R5/fake Host block, M1/IMP Vars page. 

;Fail return if EOM,. 

routine sukpkt, arg r5, arg m1 


lda r7,endo(r5) ;remember for EOM bit 


push r7 

Ilda r7,statoh(r5) ;output status 

and r7,=-1?hbusy smark it done 

sta r7,statoh(r5) 

sta r7,@pid sand poke IH code 
call sukchk ;break strip maybe 
pop r7 :get back ENDO 

if minus ;was EOM 


fail return 


endif 
endroutine sukpkt 


;SUKCHK, SUKPOK 

;SUKCHK - Conditionally do SUKPOK if strip time 
;SUKPOK - Always poke ourselves and call WAIT. 
:Expect R5/fake Host block, M1/IMP Vars page 


routine sukchk,arg r5/mi,uses m3 


lda r7.,ptime ;time for a rest? 
sub r7,@lclock 
if minus 


entry sukpok, arg r5, arg mi, result m3 


ldab r7,hbpid(rs) 
sta r7,@pid 
call fwait 

endif 


endroutine sukpok 


; SUCMSG 
;This routine throws away the whole message 


routine sucmsa,arg r5,uses ri,result m3 
repeat 
call sukpkt 
until fail 
endrepeat 
endroutine sucmsg 
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;SUCBUF , FSUCBUF 

;Get next IH buffer 

;Waits for IH to post next output, returns M2 set to MAPV2, 
;buffer CHAIN in R2, unpacked in R1, BUFE set up in buffer. 
7Fail return when messed up with IH. 


4448 1076 routine fsucbuf,local r4d,arg ri/m2/r5,result ri-r2 

444A 1046 

444C 7070 O00C repeat while statoh(rS) .nbit. #hbusy 

4450 4F78 2000 

4454 8A04 ; 
4456 4078 42DA call fwait jwait for next 1/0 

445A 9SOF9 endrepeat 

445C 704D 0008 set r4 = starto(rs) ;find what IH is sending 
4460 4B48 FEOO and r4,/#mapmsk ; 
4464 7648 OODO if r4 = mapvar :sending from Vars page 
4468 8103 


;this means the host code was sending a leader 
;we’ll throw it away. unfortunately 


446A E3FB Trap 1773,<:Host sending leader - page 336> 
446C 9024 else 
446E 4078 418C call pfbnum 
4472 7O4F 6326 set r4 = h2pblk(r7) ;host’s block 
4476 8B0O3 if minus ;there is no host? 
4478 ESFE Trap 1776,<;No host block? - page 336> 
447A 901D else 
447C 702C 0068 set r2 = ihbuff(r4) ;get current buffer 
4480 7018 OOD2 set m2,rt = mapv2 
4484 3018 8000 
4488 4078 1500 call unpckc,whih ;check IH ownership 
448C 0040 
448E 8A03 if fail > hmmm 
4490 ESFF Trap 1777,<;Bad buffer from IH - page 336>. 
4492 9011 else 
4494 707D OOOA @ set bufe(r1) = endo(r5) ;copy endpointer to BUFE 
4498 3079 00390 
449C 7078 OOD2 set m2 = mapv2 :now access buffer tables 
44A0 3078 8000 
. setbit where-chain(r2).#whh2v :add fake’s bit 
44A4 4878 0400 set r7 = Awhh2v ;add our bit 
44A8 347A OGAO form r7.,where-chain(r2) ;to buffef 
44AC 4078 43F8 call sukpkt ;get IH going again 
44B0 6046 return jand all’s well 
44B2 6006 
endif 
endif 
endif 
44B4 4078 43F8 call sukpkt ;let IH run anyway 
44B8 6046 fail return 
44BA 6076 
44BC 4FFO i 
44BE 4007 


endroutine fsucbuf 


3CB6 107 | global sucbuf = fsucbuf 
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3CB8 7078 40BE 
3CBC 1076 
3CBE 7078 OOB6 
3CC2 3078 FCOO 
3CC6 4078 4448 
3CCA SO9B 
FCOO O600 
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- INSERT "FAKES" 
-INSRT FAKES 
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SEOO 
SEOC 
SEOE 
SE10 


FCOO 


44CO 
44C4 
44C8 
44CA 
44CE 
44D2 
44D4 
44D8 
44DA 
44DE 


44E2 


0600 


4828 
4078 
8AOE 
7078 
4F78 
8A04 
7078 
9A05 
4078 
4078 


SOEF 


5E0O 
439A 


5EO2 
0400 


SEOE 


4588 
45c2 


PAGE 1 Fake Hosts 

-Stitle Fake Hosts 

7 *eeeEEKEFAaKe O to process chrs from host to ttyt*** 
Page FakVars 

fhthid: .blkw 6 

fihtwrd: .blkw 


1 
flagop: .blkw 1 
temwrd: .blkw 1 


;count of words per line in octal 


Page FakCode 


frt: 
repeat : forever 
repeat R 

Ilda r2,=fhthid ‘ 
call fsuckleader 
until succeed 
lda r7,flhthid+ttyp!] 
if r7 .bit. =octbit } flagop ; octal print leader. 


call fhtpld 
call printc 
endif 
endrepeat 


Pluribus IMP 1301 
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44E4 
44E8 
44EC 
44EE 
44F2 
44F4 


44F8 
44FC 
4500 


4502 
4506 
450A 


450C 
4510 
4512 
4514 
4516 


451A 


451C 
451E 
4520 
4524 


4526 
452A 
452c 
4530 


4532 


7078 
4F78 
8A04 
7078 
9A0D 
4078 


4078 
4078 
BAFC 


4078 
4078 
9014 


4078 
8A0G 
A798 
8BO03 
4078 


900C 


A798 
8A04 
4078 
9007 


4078 
A798 
4078 
SOEE 


SO0C7 


5E02 
0400 


5EOE 
4588 


45A0 
4338 


45A0 
45C2 


4338 


4508 


443E 


4508 


45D8 
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Ida r7,fhthid+typl 
if r7 .bit. =octbit } flagop ;octal print. 


call fhtpid 
repeat 
call wordp 
call fsuck 
until fail 
endrepeat 
call wordp sprint last word 
call printec sand <CR><LF> 
else 
repeat 
call fsuck 
if fail 
orl rt. Bs 
if minus 
call f2tput 
endif 
break 
endif 
ret 4. 08 
if zero 
call sucmsg 
break 
endif 
call f2tput 
rey 9, 08 
call f2tput 
endrepeat 
endif 


endrepeat 
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4534 
4538 
453C 
453E 
4542 


4546 
454A 
454E 
4550 
4554 
4556 
4558 
455C 
4560 
4564 
4566 
456A 
456C 
4570 
4574 
4578 


457C 
4580 


4582 
4586 


4078 
4E18 
810E 
4828 
4078 


4078 
4E18 
9104 
4078 
SOFS 
9015 
4828 
4078 
4E18 
9104 
4E18 
8109 
4878 
3078 
7078 
3078 


4078 
4890 


4078 
90D7 


4608 
OOBB 


728C 
419A 


4608 
OOBB 


414A 
7280 
419A 
0080 
0o0s0 
80FD 
7284 
62E2 
7286 


414A 


41F8 
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 {**keeeee fake © to process chrs 


fth: 
repeat 
call t2fget 
if ri = =psemicolon 


Ida r2,=clled 

call fjamleader 

repeat 
call 
until 


t2fget 
ri = =psemicolon 
call fjam 

endrepeat 
else 

Ilda r2,=ccled 

call fjamleader 

if ri = =SCntiP } ri == 


Ilda 
sta 
lda 
sta 
endif 
call 
endif 
Ilda ri,=0 
call fjamend 
endrepeat 


r7,=getpri+ HFD 
r7,ccledthst] 
r7,mine 
r7,ccled+dst! 


f jam 


10:57:29 PAGE 343 


from tty to host 


:shift-control P 


;route to local DDT 


:send final word of zeros 


Pluribus IMP 1301 


FAKES .PLR; 1 


4588 
458A 
458E 


4590 
4594 
4596 
4598 
459C 
459E 


45A0 
45A2 
45AG6 
45A8 
45AA 
45AE 
45B0 
45B2 
45B6 
4588 
45B6C 


45CO 


1076 
4078 
48A0 


GOA 
4EAC 
9104 
4078 
SOFA 
6006 


1076 
4078 
45D8 
48C1 
3148 
8B05 
48CF 
3048 
9005 
4818 
4078 


6006 


45C2 


SEOO 


45A0 


103C 


5EOC 


SEOC 


0020 
45D8 
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routine fhtpld, result ri 
call printc 


lda r2,=0 

repeat 
Ilda ri, fhthid(r2)+ 
until r2 = =6*words 


call wordp 
endrepeat 
endroutine fhtpld 


routine wordp, arg r1, uses r4 
call hexout, f2tput 


lda r4,=1 
subm r4,fhtwrd ;count words 
if minus ;end of line 
Ilda r4,= DI5 :set up for next line 
sta r4,fhtwrd : (let tty do nec cr) 
else 
Ida ri,=' 
call f2tput 
endif 


endroutine wordp 


PAGE 344 


771 
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45C2 1076 routine printc 
45C4 489D Ilda r1,=ascicr :send <CR>, <LF> 
45C6 4078 45D8 call f2tput 
45CA 489A Ilda ri,=ascilf 
45CC 4078 45D8 call f2tput 
45D0 48FF Ida r7.= D115 ;reset words per line cntr. 
45D2 3078 S5EOC sta r7,fhtwrd 
45D6 6006 endroutine printc 
45D8 1076 routine f2tput, arg ri/r5, local ri-r2 
45DA 1016 
45DC 1026 
45DE 4818 OO7F and ri,= H7F 
45E2 SA10 ifnot zero 

repeat 
45E4 4078 OFD2 call rbfput, ttyobf ;put char into tty 
45E8 6296 
4S5EA 810C while equal rtty full. wait 
45EC 787D OOOE ldab r7,hbpid(rs) shave tty poke us 
45FO 3078 627A sta r7,f2tpok ; when ready 
45F4 4878 0014 set @pid = #ttypid ;get tty to run 
45F8 30F8 OOAC 
4SFC 4078 42DA call fwait ;sleep on it 
4600 90F2 endrepeat 

endif 

4602 6026 endroutine 
4604 6016 


4606 6006 
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4608 


460A 
460E 
4610 
4614 
4616 
4618 
461C 


4620 
4624 
4626 
462A 


1076 


7078 
9BO9 
4078 
627E 
8108 
787D 
3078 


4078 
SOF3 
4C18 
6006 


030C 
1008 
OOOF 
627C 
40EO 


0080 


PAGE G Fake Hosts 
;tty fake continued 


routine t2fget, result ri, arg r5 
repeat 
lda r7,debugm 
ifnot minus 
call rbfget, ttyibf 


while equal 


ldab r7,bhpid(r5) ;poke this when ready 
sta r7,t2fpok 7 
endif 


call fdoze 
endrepeat 
ior r1i,= H80 zalways parity 
endroutine t2fget 


773 
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5E12 


FCOO 


462C 
4630 
4634 


4636 


4638 
463C 
4640 


4642 
4646 
4648 
464A 
464C 
4650 


4652 
4656 
4658 
465C 


465E 
4662 
4666 


003B 
OOBB 
0080 


0600 


4828 
4078 
SAFC 


489C 


5073 
3079 
88FC 


4078 
SAO0C 
A798 
8A04 
4078 
9007 


4078 
A798 
4078 
SOF3 


4818 
4078 
SOE3 


5E12 
439A 


5E12 
7298 


4338 


443E 


4690 


4690 


003B 
4690 
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;7**#* fake host 1 to ddt **+* 


semicolon= ‘'; ;define semicolon character. 
psemicolon= semicolon} H80 ;semicolon with parity bit. 
SCnt1P= 0} H80 ishift control pee 


Page FakVars 
ddtmpl: .blkw G ;put ddt IH leaders here first. 
Page FakCode 


flrhd: 
repeat 
repeat 
Ida r2,=ddtmp1 
call fsuckleader 
while fail 


endrepeat 
Ida r1,=lenl+words ; leader length 
repeat 

Ilda r7,ddtmpl(-ri) ;copy leader for jam 


sta r7,ddtled(r1) 
until loop 
endrepeat 


repeat 
call fsuck 
until fail 
rriori, D8& g 
if zero 
call sucmsg 
break 
endif 
call f2dput 
rri ri, os 
call f2dput 
endrepeat 


Ida r1,=semicolon 
call f2dput 
endrepeat 


;end of fhd 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 348 
FAKES.PLR; 1 


4668 
466C 
4670 


4672 
4676 


4G7A 
4G67E 
4682 
4686 


4688 
468A 


468E 


4078 
4E18 
91FC 


4828 
4078 


4078 
4078 
4E18 
B1FA 


4890 
4078 


SO0ED 


46C8 
003B 


7298 
419A 


414A 


46C8 
003B 


41F8 


PAGE 8 Fake Hosts 


s*eeteere Fake host 1 from ddt to host ***** 
fdh: 
repeat 
repeat 
call d2fget 
until ri <> =semicolon 


endrepeat 


lda r2,=ddtled 
call fjamleader 
repeat 
call fjam 
call d2fget 
until ri = =semicolon 


endrepeat 

lda r1,=0 

call fjamend 
endrepeat 


;end fdh 


775 
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; Fake Host 1 (DOT) utility routines 


; send char in ri to ddt. 


4690 1076 routine f2dput, arg ri, arg r5 
repeat 
4692 7078 O30C Ida r7,debugm 
4696 SBOD ifnot minus >not S/A TTY/DDT 
4698 7078 A260 lock f2d1 
46S9C SAFE 
46SE 7878 6276 ldab r7,f2db 
46A2 SAOA until zero 
46A4 787D OOOE Idab r7,hbpid(rs) 
46A8 3078 6278 sta r7,f2dpok 
46AC 3008 A260 unlock f2d1 
endif 
46BO 4078 42DA call fwait 
46B4 SOEF endrepeat 
46B6 3818 6276 stab ri,f2db 
46BA 4878 0012 Ida r7,=ddtpid 


46BE 30F8 OOAC sta r7,@pid 
46C2 3008 A260 unlock f2d1 
46C6 6006 endroutine f2dput 


>; get next char from ddt in ri. 


46C8 1076 routine d2fget, arg r5, result ri 
repeat 
46CA 7078 O30C Ida r7,debugm 
46CE SBOD ifnot minus snot S/A TTY/DDT 
46D0 7078 A25E lock d2fl 
46D4 SAFE 
4606 7818 A26C ldab r1,d2fb+foo . 
46DA 8AOA while zero 
46DC 787D OOOF ldab r7.bhpid(rs) 
46EO 3078 626E sta r7,d2fpok 
46E4 3008 A25E unlock d2fl 
endif 
46E8 4078 40EO call fdoze 
46EC SOEF endrepeat 
4GEE 4878 0012 lda r7,=ddtpid 


46F2 30F8 OOAC sta r7,@pid 
46F6 3008 A25E unlock d2fl 
46FA 6006 endroutine d2fget 


yaa — 
{ 
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FAKES.PLR; 1 PAGE 10 Fake Hosts 
;Fake Host 2 Suck (IMP to Host) Side 
;Read in message leader, then dispatch on first data word. 
;1f it’s positive, we got a param change message. 
;1f negative, it must be packet core 
Page FakVars 
SE1E fh2led: .blkw 6 ;storage for leader 
FCOO O60O0 Page FakCode 
fh2suc: 
repeat ; forever 
46FC 4828 SE1E Ida r2,=fh2led 
repeat ;until non-leader 
4700 4078 439A call fsuckleader 
4704 SAFE until success ; ignore control messages 
endrepeat 
4706 4078 4338 call fsuck ;get a data word 
470A 9AO08 if succeed ; long enough message 
470C 4811 Ida ri,ri ;pkt core or param? 
470E 8BO04 if minus ;pkt core 
4710 4078 471C call Fhcesuc ;process it 
4714 9003 else 
pecall: ;hook onto this call for param change 
4716 4078 443E call sucmsg 7null routine 
endif 
endif 
471A SOF1 endrepeat 


TIF 
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; FHCSUC 

;Process incoming packet core messages 

31) get a buffer, and copy all of the message into it. 

32) if for us (and not magic modem), pass it to PKCIC (packet core). 
33) else if magic modem, copy down the data within the: buffer 

14) send to the appropriate modem. 

;Enter with RS/ fake param block, R1/ first data word, leader 

tis in FH2LED already. 


0001 -lif mz PSE ;Suffer fast lines and a slow NOC in Platform 
O3CcO crpcnt = D32* D30 730 seconds (?) 
471C 1076 routine fhcsuc,arg ri,arg r5,uses ri-r4,uses m2 
471E 1016 save ri ;look at data later’ 
repeat 
4720 4078 13C6 call freget,whf2h+nsf ;use store/forward pool 
4724 4006 
4726 8A04 until success ;no buffers 
4728 4078 42DA call fwait 
472C SOFA endrepeat 
472E 4841 Ida r4,ri ;put away buff ptr. 
4730 48FO Ilda r7,=0 E 
4732 2071 sta r7,(ri)+ >ineth ;block length later 
4734 4838 COOO Ilda r3,=ridtyp 
4738 2031 sta r3,(ri)+ 3: typh 7pkt core type 
473A 2071 sta r7.(ri)+ 77c¢hkh :cksum set later 
473C 7038 62E2 Ida r3,mine ymy IMP number 
4740 2031 sta r3,(ri)+ ;:dsth 
4742 2071 sta r7.(ri)+ :;cpsatd ;no dest yet 
4744 7038 5E22 Ida r3,fh2led+hstl ;source host 
4748 2031 sta r3,(ri)+ 37¢epdh 
474A 7038 5E24 Ilda r3.fh2led+dst] sand IMP 
474E 2031 sta r3.(ri)+ piepdi 
4750 7038 5E26 Ida r3,fh2led+mid) :;and mess-id 
4754 2031 sta r3,(ri)+ 77¢epdl 
4756 4831 Ida r3,ri ;buffer pointer 
4758 6016 restore ri ;get back data 
repeat ; through message 
475A 2013 sta ri,(r3)+ ;store data 
475C 4078 4338 call fsuck :get next word 
4760 8AFD until fail ;just got last 
endrepeat 
4762 2013 sta ri.(r3)+ ;store last word 
4764 4814 Ilda ri,r4 ;restore buffer start address 
4766 4934 SUB R3,R4 
4768 4838 FFFC and r3,=-4 :force even number of words 
476C AGB1 srl rs, ;bytes-words 
476E 3031 sta r3,(ri) ;set length 
4770 A2B1 sll r3,1 ;bytes again 
4772 4078 17C8 call lIpcksubr ;Sstore length and compute checksum. 


4776 3239 0004) addm r3,chkh(r1) 
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477A 
477E 
4780 
4782 
4784 
4786 
478A 
478C 


47390 
4792 
4796 
4798 
479C 
479E 
47A0 
47A4 
47A8 
47AA 
47AE 


47B0 
47B2 
47B4 
47B6 


47B8 
47BA 
47BC 
47CO 
47C4 


47C8 
47CA 
47CE 
47D2 
4706 
47DA 
47DC 


4TEO 
47E4 
47E8 
A7EA 


47EC 
47FO 


47F2 


7039 
4873 
4BB7 
A2B1 
8A07 
4F78 
8A03 
4078 


902E 
7O1C 
1016 
4F78 
9SA10 
1036 
4818 
7O7C 
4A74 
311C 
4A14 


6031 
2034 
4E17 
8CFD 


6036 
9007 
707B 
307C 
317C 


6016 
704B 
7078 
3078 
4B18 
9A03 
4818 


301A 
4078 
9A02 
6006 


4078 
4000 


SOFC 


0010 


0100 
3CCC 


0010 
0100 
0012 
00s0 


00380 


131E 


PAGE 12 Fake Hosts 


Ilda r3,cmark(r1) 
Ilda r7,r3 
and r3,=cpline 
sill r3,1 
if zero 
ifnot r7 .bit. =cmmbit 


call fhes! 
endif 
else 
Ida ri,cmark(r4) 
save ri 
if r7 .bit. =cmmbit 


save r3 
Ilda ri,=cmmbeg 
Ida r7,bufe(r4) 


add r7,r4 

subm r1,bufe(r4) 
add ri,r4 

repeat 


lda r3.(ri)+ 
sta r3.(r4)+ 
until ri> r7 


endrepeat 
restore r3 
else 
Ida r7,m2nghb-words(r3) 
sta r7,cpsatd(r4) 
subm r7,chkh(r4) 
endif 
restore r1 
Ida r4,m2pblk-words(r3) 
setmap m2,mapv2 


and r1,=crpbit 
ifnot zero 
Ilda ri,=crpent 
endif 
sta r1,chan-chain(r2) 
call fhesblk 
if success 
return 
endif 
endif 
call flushb,whf2h 


endroutine fhcsuc 


PLURIBUS V2.9B 25-Jun-87 


10:57:29 PAGE. 352 


;line at dest 
;just Tine num 


Sits far us 
:ignore if magic modem 


;but process regular ones 


:get bit Flags 
; and remember for later 
;this is a magic modem, pkt 


;where MM data starts 
;current eom 

;last data word 

snew length 
:beginning of MM data 
;for all data 

;copy it down 


sneighbor this line 
; into packet 
:fFix chksum too 


:qet back flags word 


no modem O 


;repeating this pkt? 
;yes 
show many times 


;set SBLK this modem 
jgave away buffer 


:done with buffer 


7793 
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7 FHCSL 
;Call PKCIC from FHCSUC with a buffer for our PKT CORE 
;R1 is unpacked buffer pointer, M2 set up 


FCOO 0000 page RelCode 

5COC 1076 routine fhcsr.arg r1,arg m2,local r2,uses rifi,uses r3-r4 
5COE 1026 ‘ 
3CCC 1076 global fhces!l = fhesr 

3CCE 7078 4OBE 

3CD2 1076 


3CD4 7078 OOBO 
3CD8 3078 FCOO 
3CDC 4078 SCOC 
3CEO 390390 
FCOO 0000 


repeat 
5C10 7078 OOBO setmap m3,maprel 
5C14 3078 FCO6 


5C18 7078 BEAE lock pkclok ; lock pkt core params 

5C1C SAFE 

S5CiE 4078 4BEA call pkcic,bltfak ;do this packet 

5C22 4000 

5C24 8A0E until success ;done 

5C26 787D OOOE ldab r7,hbpid(r5) :poke us when PKT CORE done 
5C2A 3078 5DD0 sta r7,blitpok 

5C2E 3008 BEAE unlock pkclok ;uNTock pkt core params. 


5C32 7078 OODO setmap m3,mapvar 
5C36 3078 FCOG 


5C3A 4078 3C68 call wait ;global entry 
5C3E SOES endrepeat 
5C40 3008 BEAE unlock pkclok ;done PKT CORE 


5C44 7078 OODO setmap m3,mapvar 
5C48 3078 FCO6 


5C4C 6026 endroutine fhcs! 
SC4E 6006 


Pluribus IMP 1301 
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47F6 703C OO2E 


47FC 4818 O3CO 
4800 707C 4000 


4806 311B 0350 
480C 4838 0078 


4810 4078 42DA 
4814 707C OO2E 


4828 302C OO2E 
482C 4078 14E8 


PAGE 14 Fake Hosts 


: FHCSBLK 
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PAGE 354 


:Set up send-the-block pointer (SBLK) with this buffer 


:Call with R5/fake param block, R4/target modem param block, 


:R2/buffer CHAIN pointer word. 


;Fail return if we waited too long to set 


;is gone 


page FakCode 


it, else buffer 


routine fhesblk,arg r2/m2,arg r4-r5,uses r3 


lda r3,sb1k(r4) 
ifnot zero 
jlda r1,=crpcnt 
lock lockm(r4) 


subm ri,chan-chain(r3) 


unlock (r4) >; lockm 
Ilda r3,= D3* D4O 
repeat 


call fwait 

Ilda r7,sblk(r4) 

until zero 

sub r3,=1 

next ifmot zero 

Trap 1702,<;Flushing Reload 
fail return 


endrepeat 
endif 
sta r2,sblk(r4) 
call pokem 


endroutine fhesblk 


:got a buf 
:yes, must 


Fer already? 
wait 


;try to hurry it out 
;Keep modem code away 


sby cleari 
:;done lock 
;give up i 


yhnothing t 
;gone yet? 
yes 


ng repeat count 
ed stuff 
n 3 seconds 


9 do now. 


;else count a wait 


sall’s oka 


Packet (NO BUF SP) .--page 352> 


snow send 
sand tell 


y 


this buffer 
modem so 


781 
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SE2A 


FCOO 


4832 
4836 
483A 
483C 
4840 
4844 
4846 
4848 
484C 
4850 
4854 
4858 
485A 
485C 
4860 
4862 
4866 
4868 
486C 
486E 
4872 
4874 
4878 


487C 
4880 
4884 
4888 


488C 
4890 


0600 


4078 
4078 
8A2C 
4818 
4078 
4000 
SAFE 
7049 
783C 
7079 
307B 
AGB1 
4AB1 
7049 
8A16 
70493 
E3C1 
3839 
7035 
7078 
8A05 
7878 
7838 


3079 
3839 
4878 
30793 


7039 
4A31 


40EO 
3CE2 


6568 
154A 


o0s2 
OO1A 
0006 
63A6 
0008 
0002 
0019 
AS66 


40C5 
40c4 


oo0o0c 
OOOB 
B400 
0010 


ooso 


PAGE 15S Fake Hosts 

;Fake Host 2 Routines 

;JAM side 

;Trace sending process is currently missing 

;Check for packet core messages to send: 

; 1) call PKCOC to see if any packet core from us 

; 2) check FHCQ for packets from our neighbors 
Page FakVars 

fhceqid: .blkw 6 ;leader send area 


Page FakCode 


fh2jam: 
repeat ; forever 
call fdoze zrest here always 
call fhcejl ;check our PKT CORE 
if fail snothing doing 
Ida ri,=sfhcq ;see if any from M2I 
call deque,.whf2h 
next if fail ;none there either 
Ida r4,inch(r1) :which modem 
ldab r3,modem(r4) ;M2PBLK offset 
Ilda r7,cpsats(ri1) :source id : 
sta r7,m2nghb(r3) :into neighbor table 
srl r3,i ;line number for later 
add r3,=1 : 
Ilda r4,cpsatd(r1) ;destination for setup 
if zero ;no, we might help 
Ida r4,typh(r1) ;report neighbor’s status 
Trap 1701,<:Neighbor IMP wants a reload - page 353> 
stab r3,cforl(r1) ;remember line num 
Ida r3,(r5) :FH2 host number’ - 
Ida r7,m3/pchelp ;redirect it? 
if zero ;no , 
ldab r7,ssimp :default dest then 
ldab r3.sshost , 
endif 
sta r7,dsth(ri1) ;set dest IMP 4 
stab r3,cpdh(r1) :and Host 
Ilda r7,=csetup shelp out 31Gs 
sta r7,cmark(r1) 
endif 
lda r3,bufe(ri1) :get back endpointer 
add r3,ri 


endif 
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;Get here with buffer ready to JAM 
; leader is in the buffer 


4892 4878 OFOO lda r7,=hicode 


4896 3078 SE2A sta r7,fheqidtnetl ;set up our leader area 

489A 7879 OOOB ldab r7,cpdh(r1) ;dest host 

489E 3078 SE2E sta r7,fheqid+hstl 

48A2 7079 OO00C lda r7,dsth(r1) :dest IMP 

48A6 3078 5E30 sta r7,fhcqid+dst] 

48AA 7079 OOOE Ilda r7,cpdi(r1) sand mess id 

48AE 3078 5E32 sta r7,fheqid+midl 

48B2 4842 lda r4,r2 :save buffer pointer 

48B4 4828 SE2A Ilda r2,=fheqid ;where leader starts 

48B8 4078 419A call fjamleader 

48BC 4824 lda r2,r4 :restore buffer pointer 

48BE 4849 0010 jda r4,=cmark(r1) sbeginning of data 
repeat 

48C2 6014 Ida r1,(r4)+ 

48C4 4E43 until r4 >= r3 ;to end of data 

48C6 8204 

48C8 4078 414A call fjam ;send the word 

48CC SOFB endrepeat 

48CE 4078 41F8 call fjamend ;send last word 

48D2 4078 131E call flushb.whf2h ;done with buffer 

48D6 4000 

48D8 SOAD endrepeat 


;end of FH2JAM 


783 
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7 FHCJUL 

;Routine which checks our packet core process for any to send 
;Expects R5/fake Host block, M1,3/IMP Vars 

;Returns fail if none to send. If succeed, R2 has buffer 
;pointer and R1 unpacked (M2) endpointer, M2 set up. 


FCOO 0000 e page RelCode 

5C50 1076 routine fhejr, uses ri-r4, arg r5, result ri-r3, result m2 
3CE2 1076 global fhejl = fhejr 

3CE4 7078 40BE 

3CE8 1076 


3CEA 7078 OOBO 
3CEE 3078 FCOO 
3CF2 4078 5C50 


3CF6 9085 
FCOO 0000 
5C52 7078 SEBO Ida r7,pkcst ;see if PKT CORE active 
5C56 892F if odd ;ipkcact ;‘tis 
5C58 4078 13C6 call freget,whf2h+tnhi :allocate a buffer 
5C5C 400E 
SCSE 9A2B if success ;got one ¢ 
repeat ;until PKT CORE gives us bfr 
5C60 7078 SEBO Ida r7,pkest ;still active? 
5C64 8925 while odd :ipkcact 
5C66 7078 OOBO setmap m3,maprel :set map for pkclok 
5C6A 3078 FCOG6 
5C6E 1016 save ri 
5C70 7078 BEAE lock pkclok 
5C74 SAFE 
5C76 4078 4058 call pkcoc,blitfak :get buffer filled 
5C7A 4000 
5C7C SAOB if success ;PKCOC done 
SC7E 3008 BEAE unlock pkclok 
5C82 7078 OODO setmap m3,mapvar 
5C86 3078 FCOG 
5C8A 4831 Ida r3,ri1 ;address of end of data. 
5C8C 6016 restore ri 
5C8E 8110 break ifnot equal snothing to do, really. 
5C90 6006 return 
endif 
5C92 6016 restore ri 
5C94 3008 BEAE unlock pkclok ;done PKT CORE 
5C98 787D OOOF ldab r7,bhpid(rs) ;our PID 
5C9C 3078 5DDO sta r7,bl tpok ;for BLT to poke 
S5CAO 7078 OODO setmap m3,mapvar 
SCA4 3078 FCOSG 
5CA8 4078 3BEC call doze ;wait some now 
SCAC SODA endrepeat 
SCAE 4078 131E call flushb,whf2h ;free our buffer 
5CB2 4000 
endif 
endif 


5CB4 607 fail return 


(— ay = 
785 


S5SCB6 4FFO 
SCB8 4007 
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endroutine fhcjl 


on, 
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oe ee tdiscard” Tee here 

Page FakVars 
30D4 sowdtm = 0D12500 ;5 minutes, 20 sec (stime units) 

SES6 disled: .blkw 6 ;discard leader buffer 
5E42 countd: .blkw 1 :pkts and leaders discarded 
FCOO O600 Page FakCode 

@iscard: 

repeat ; forever 
48DA 48F1 Ilda r7,=1 
48DC 3278 SE42 addm r7,countd 
48EO 4828 SES6 lda r2,=disled 
48E4 4078 439A call fsuckleacer 
48E8 8A12 if fail 
48EA 7878 SE39 Idab r7,disledttypI+1 
48EE 4EF5 if r7 = =cerfnm 7a RFNM- hold off WDT 
48FO 810D 
48F2 7028 OOA2 lda r2,stim2 ;get hi crder time 
48F6 7078 OOAO Ida r7,stime :get low order current time 
48FA 4A78 3004 add r7,#sowdtm ;how long until dead 
48FE 8402 if carry 
4900 4AA1 add r2,/1 ;correct hi order 

endif 
4902 3028 625C sta r2.,wdatim+twords ;save hi time 
4906 3078 625A sta r7,wdatim sand lo time 
endif 
430A 9006 else 
490C 4078 4338 call fsuck 
4910 9A03 if succeed ;got a packet. 
4912 4078 443E call sucmsg ;dump all pkts 
endif 
endif 

4916 Q9OE2 endrepeat 
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oe statistics och dob Robe 
PAGE Fakvars 


*** statistics variables 


5E44 tortm: -blkw 1 ; lengths, cycles O-3*2 
5E46 tortd: -blkw 1 :;dests, cycles O-7*4 
SE48 statdt: .blkw D8*2 78 torture test destinations 
5SEG8 mgnl: -bikw 1 ;init to 8, negative for torture test 
; length in words: O to HI1F7 legal 
SEGA statb: .blkw O 
0000 .=0 ; layout of stat blocks . 
0000 -blkw 6 :six words of leader (must be first) 
lojelele: snon: -blkw 1 30 => off 
OOOE statf: -bIlkw 1 7; frequency 
0010 olds: -bikw 1 ;Old value of sync 
0012 impoff: .blkw 1 ;offset sync for my imp 4 
0014 statl=.-0O 
SEGA -=statb 
;current stat routines: . 
SEGA mgsb: -blkb statl ;message generator, MUST be. first} 
SE7E stsb: -blkb statl 7srep trouble report 
5E92 thrusb: .blkb stat! ; throughput statistics 
SEAG6 trpsb: -bilkb statl ;traps report 
SEBA dgsb: -bIlkb stat] ;buffer checksum error dump (diagrp) 
5SECE hwsb: .b1kb stat] ;software watchdog leader (to us) 
SEE2 tisb: -bIikb stat] ;TENEX Logger leader 
SEF6 tittcp: .blkw 6 ;TCP leader for TENEX logger ° 
5SFO2 tttcpe: .bikw O ;end of TCP header 
SFO2 snapbf: .blkw H40 ;TENEX logger buffer 
SF82 throtc: .bikw 1 
5F84 banom: -bikw 1 


SF86 > trbick: .bikw 14 
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FCOO 


4918 
491A 
491C 
491E 
4920 
4922 
4924 
4926 
4928 


492A 
492C 
492E 
4930 
4932 
4934 
4936 
4938 
493A 


493C 
493E 
4940 
4942 
4944 
4946 
4948 
494A 
494C 


O600 


SEGA 
5EE2 
SE7E 
5E92 
5EAG 
SEBA 
SECE 
FFFF 
FFFF 


49C2 
4A48 
4A7E 
4B3A 
4C18 
4D4E 
4Cc6C 
0000 
0000 
0012 


0400 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


PAGE 20 


stbp: 


stbpsp: 


cawl: 


cawlsp: 


statot=. 


canom: 


anomsp: 


PLURIBUS V2.9B 25-Jun-87 


Fake Hosts 
Page FakCode 


masb 
tisb 


stsb ;status statistic block 
thrusb ;throughput stats block 


trpsb ;trap stats block 
dgsb 

hwsb 

a | 

-4 


genm 
tlog 
status 
thrurpt 
traprp 
diagrp 
holdwd 
Oo 

O 

-cawl 


| 
n 
a 
ey 
oe 


eoo000000 
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494E 


4952 
4956 
495A 
495C 
4960 
4962 
4966 
496A 
496C 
49370 
4972 
4976 
4978 
497C 
497E 
4982 
4984 
4988 
498C 
498E 
4992 


4994 
4998 
499A 
499C 
499E 
49A2 
49A6 
49AA 


49AE 


43B0 
49B2 


49B4 
49B8 


4818 


7079 
7029 
SB2B 
7O3A 
8AO6 
4078 
3378 
9023 
3478 
48FO 
3078 
1016 
TOTA 
8A04 
40F9 
9016 
7038 
713A 
8B04 
4038 
4AB1 


713A 
4937 
SBOA 
49F1 
4078 
7378 
3O7A 
40F9 


6016 


4992 
8BDO 


4078 
90CB 


0010 


493C 
4918 


OO00C 


FFFF 
G2AE 


G2AE 
SF86 
OOOE 
492A 


62DE 
0010 


FFFF 


0012 


FFFF 
62DE 
0010 
492A 


40EO 
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;jam side stats to send assorted msgs. 
;top level infinite repeat to do dispatches 


stats: :statistics fake host multiplexer. 
repeat 
Ida ri,=statot-words j;start at end of list. 
repeat 
Ida r7,canom(r1) :stats bit for NCC 
lda r2,stbp(r1) ;this one’s block 
ifnot minus ; there is a stat here. 
lda r3,snon(r2) ;On/ofF switch 
if zero ;Stat off 
eor r7,=-1 ;change bit, 
andm r7,anom ;and note turning of F 
else :Stat is on. 
jorm r7,anom ;record turning on this guy 
Ilda r7,=0 :clear checksum for the stat 
sta r7,trbick 
save ri 
lda r7.statf(r2) ;freq to send this at 
if zero 
call ®cawl(r1) ;call this stat package. 
else 
Ilda r3.sync ;check if time to send this 
sub r3,olds(r2) ; truncated time of last run 
if minus 
eor r3,=-1 ;make time dif plus 
add r3,=1 
endif 
sub r3, impoff(r2) yaccount for impno 
sub r3,r7 ;if one period passed 
ifnot minus 
sub r7,=1 ;remember this time, by truncating 
eor r7,=-1 
and r7,sync ;lower bits off syne 
sta r7.olds(r2) :and saving result 
call ®cawl(r1) ;call this stats guy, r2= ldr. 
endif 
endif 
restore ri 
endif 
endif 
sub ri,=words ;next one to do 
until minus 
endrepeat 
call fdoze ;sleep a while 
endrepeat 
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5F88 
SF8A 


FCOO 


49BA 
49BC 
49BE 
49CO 


49C2 
49c4 
49C8 
49cc 
49CE 
49D2 
49D6 
49D8 
49DC 
49DE 
49E2 
49EG 
49EA 
49EE 
A9F2 
49F6 


49FA 
49FE 
4A00 
4A02 
4A06 
4AOA 
4A0E 
4A10 
4A12 
4A16 
4A1A 
4A1C 
4A20 
4A24 
4A28 
4aor 


0600 


0008 
0048 
O1FO 
O1F8 


1076 
4078 
7038 
8B17 
7028 
603A 
4BAG 
3028 
8AOF 
7028 
7328 
607A 
3078 
GO7A 
3078 
3028 


4B38 
A2B1 
49B2 
702D 
712d 
4828 
4E32 
8CO6 
493A 
4078 
SOFA 
323D 
4078 
7028 
3028 
4RA14 


419A 
5E68 


5SE44 
49BA 


5E44 


SE46 
OO1E 
5E48 
SEGE 
5SE48 
5SE70 
5E46 


O1FF 


0004 
0010 
1FFE 


0002 
4236 


0010 
41F8 
62DA 
SF8A 
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:message generator, sends messages of garbacie until enough 
;words sent. 

;r2 points at G wd leader 

;keep proper msg generator statistics 


Page FakVars 
ymessage generator statistics 


genment: .bikw 1 show many messages ever sent 
genmtim: .blkw 1 :when last message finished 


Page FakCode 
;torture test message lengths 
mingth: H8 

H48 

H1iFO 

H1F8 


routine genm, arg r2, uses r2-r3 
call Fjamleader 


Ilda r3,mgqnl :length of msg in weds 
if minus 
jda r2,tortm ;do torture test 
Ilda r3,mingth(r2)+ ;length for this msg 
and r2,=6 :limit range 
sta r2.tortm 
if zero 
Ilda r2,tortd 7pntr to old dest 
and r2. HIE :limit these 


lda r7,statdt(r2)+ ;new host to send to 


sta r7.mgsbthstl 


Ida r7,statdt(r2)+ ;new imp 
sta r7,mgsb+dstl 
sta r2,tortd ;save for later 
endif 
endif 
and r3,= HIFF ;max mess len 
sll r3,1 :in bytes 
sub r3,=2 ;0 sends no wds 
lda r2,endi(r5) ;end of our buf 
sub r2.fakesi(rs5) show much data fits 
and r2,=packm ;disregqard map 


repeat while r3 > r2. ;:send until enough pkts to fit wds 


sub r3,=2(r2) :/send’ this many . 
call jamhol sno frills, just jam hole buf 
endrepeat 
addm r3,fakesi(r5) :fake length of last 
call fjamend ;end msg 
Ilda r2,time :get the time 
sta r2,genmtim :save it in msq generator statistics 


Ilda r2.=1 
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-comnt | 


TENEX Logger routines 


Messages sent to TENEX using TCP-Internet header. Listening process 
on TENEX prints changes in status, plus all snapshots. 


4000 tlogfreq= H4000 ;send config every 8 mins 


;Dispatch table 


4A3C table titdsp 

4A3C 4A50 titi ;Common Buses 
4A3E 4A54 t}t2 ;Common Memories 
4A40 4A5C t1t3 ;Processor Names 
4A42 4A60 tit4 71/0 Devices 
4A44 4A64 t1t5 sRTC’sS 

4A46 4A6C t1t6 :Processor State, 


endtable tlitdsp 
Main dispatch control. Called from stats 


4A48 1076 routine tlog, arg r2. arg r5 
4A4A 6006 endroutine tlog 
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4A4C 1076 
4A4E 6006 


4A50 1076 
4A52 6006 
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;subroutine to send a table. 
;enter with r2 = length in bytes. 


routine tlitsub, arg r2, arg r5 
endroutine tlitsub 


;Table 1 - Common Buses 


23 


routine titi, arg r2, result r2. uses rif, 


endroutine titi 


PAGE 365 


uses r3-r4 
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4A54 
4A56 
4A58 
4A5A 


4ASC 
4A5E 


1076 
1056 
6056 
6006 


1076 
6006 


PAGE 25 Fake Hosts 
;table 2 - Common memories 
routine t1t2, arg r2, result r2, 


endroutine t1t2 


; table 3 - Processor names 


routine t1t3, arg r2, result r2, 
endroutine t1t3 
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local r5, 


uses r1 


PAGE 366 


uses ri, 


uses r3-r4 
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;table 4 - I/O devices 


4A6O 1076 routine tIlt4, arg r5, uses ri-r4 
4A62 6006 endroutine tit4 
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4A64 
4A66 
4h68 
4A6A 


4A6C 
4AGE 


1076 
1056 
6056 
6006 


1076 
6006 
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;table 5 - RTC‘s 
routine t1t5, arg r2, result r2, 


endroutine t1t5 


;table G6 - processor state 


routine t1t6, arg m2, uses r1 
endroutine t1t6 


10:57:29 


local 


rss 


PAGE 368 


uses ri, 


uses r3-r4 
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;imp status fake, send status info to NCC 
4A70 table tsts ;table of things to send 
0001 -lif z VHA ;ARPANET things 
0,0,-1,tipver,sysver.rstrid+foo,cpflgs 
0001 -1if mz VHA ;PLATFORM 
4A70 0000 0,0,-1,m2/vhaser.sysver,rstridt+foo,cpflgs 
4A72 0000 
4A74 FFFF 
4A76 883E 
4A78 40C2 
4A7A A320 
4A7C 40CA 
endtable tsts 
4A7E 1076 routine status, arg r2, uses ri-r4 
4A80 4078 419A call fjamleacder ;arg r2 
4A84 4818 80C6 Ida r1,=sign+ 0306 ;report code 
4A88 4078 4042 call cksjam ;send 
4A8C 4078 4C78 call stathd ;standard header 
0001 .if nz VHA ;VHA serial number check 
4A90 7078 OOB2 setmap m2,mapvha :for VHA serial number 
4A94 3078 FCO4 
.ende 3 8 
4A98 48AE Ida r2,=ltsts 
repeat ;send things out of table 
4A9A 501A 4A70 Ilda ri,tsts(-r2) 
4A9E 9A03 ifnot zero } odd 7a pointer if possible addr 
4AAO 9902 
4AA2 7011 lda ri,(r1) 
endif 
4AA4 4078 4D42 call cksjam 
4AA8 4EAO while r2 > =O 
4AAA SCFB 
endrepeat 


4AAC 7078 OOBO setmap m2,maprel 
4ABO 3078 FCO4 


4AB4 7018 8096 Ilda ri,m2#segcon ;dead procs 
4AB8 7518 9D64 eor ri,m24#procex ;existing procs 
4ABC 7078 OOD2 setmap m2,mapv2 


4ACO 3078 FCO4 

4AC4 4078 4D42 call cksjam 

4AC8 48390 Ida ri,=0 ; two more blanks 

4ACA 4078 4042 call cksjam 

4ACE 4078 4D42 call cksjam 

4AD2 4078 4CAC call trbsb2 ;send anomalies and buf reports 
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4AD6 


4AD8 
4ADC 
4ADE 
4AE2 
4AE4 
4AE8 
AAEA 


4AEC 
4AFO 
4AF2 
4AFG 
4AF8 
4AFC 
4AFE 
4B02 
4B04 
4B08 
4BOA 
4B0C 
4BOE 
4B12 
4B14 
4B16 
4B1A 
4B1E 


4B22 
4B26 


4B28 
4B2C 
4B30 
4B34 
4B38 


48B0 


604B 
9B1iC 
782C 
A2A5 
781C 
4A21 
A7A8 


7O1C 
4871 
717C 
1076 
4078 
6016 
782C 
ATAT 
787C 
4DF4 
ASF3 
ASA1 
4078 
9008 
4890 
4078 
4818 
4078 


7638 
92D9 


4818 
3018 
7018 
4078 
6006 


635E 
001B 


OOSF 


40B4 
40B6 
4p2c 
0004 


0002 


4D2c 


4D42 
8000 
4042 


6324 


0800 
SE8C 
SF86 
41F8 
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Ilda r3,=0 
repeat 


lda r4,m2pb1k(r3)+ 
ifnot minus 
ldab r2,clockm(r4) 
sit 72.5 
ldab ri,rmodn(r4) 
add r2,ri 
rel ir2. Bs 
: rei r2,3 
Ida ri, ihytik+foo(r4) 
lda r7,r1 
sub r7,gotihy+foo(r4) 
push r7 
call tstjam 
pop r1 
ldab r2,Inei(r4) 
rel eect 
Idab r7,phflag(r4) 
eor r7,=phup 


rra r7,3  ;;phup carry 
rra r2,1  ;;carry sign 
call tstjam 
else : 
Ilda ri,=0 


call cksjam 
lda ri,=sign 
call cksjam 
endif 
until r3 >= modems 


endrepeat 

Ida r1,= H800 

sta ri,stsb+statf 

Ilda ri,trbick 

call fjamend 
endroutine status 


; line speeds 


;routing sent,keep between O, ff 


7number missed 
;save this 


srouting misses 


;get line state 


:reverse sense of “up" bit 


;get up bit to carry 
i; thence to sign 


;no routing on non-line 


;default is dead line 
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4B3A 
4B3C 
4B40 
4B44 
4B48 
4B4C 
4850 
4B54 
4B56 
4B5A 
4B5C 


4B60 
4B64 
4B68 
4B6C 
4BG6E 
4B72 


4B74 
4B76 
4B7A 
4B7C 


4B80 
4B84 
4B88 
4B8C 
4B8E 
4B92 
4B94 
4B98 
4B9C 


4B9E 


4BAO 
4BA4 
4BAG 
4BAA 
4BAC 


4BAE 
4BBO 
4BB4 
4BB6 


4BB8 
4BBA 


4BBE 
4Bc2 
4BC6 
4BC8 


1076 
4078 
4818 
4078 
7018 
4078 
7018 
4998 
7618 
8203 
7018 


4078 
7018 
4078 
4890 
4078 
48BO 


4890 
604B 
9803 
701C 


4078 
701C 
702C 
1026 
4078 
6016 
4078 
7638 
S2EC 


48B8 


704B 
9B04 
7638 
9208 
48C8 


4890 
4078 
49C1 
8AFC 


9009 
482C 


601C 
4078 
4E42 
92FB 


419A 
80CD 
4D42 
62DE 
4042 
6322 
6324 
6324 
4CBA 
6522 
4042 


4042 


635E 
4040 
4042 
400A 
4008 
4D42 


4042 
6324 


6326 


6322 


4042 


0010 


403A 
4042 
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;modem and host traffic statistics 

routine thrurpt, arg r2, uses r2-r4 
call fjamleader sarg r2 
Ilda r1,=sign+ 0315 ;report code for NU 
call cksjam ‘ 


Ilda ri,sync ;custom-made statistics header 


call cksjam 
lda ri,hosts 
sub r1,=nfh2 


if ri < modems ;compute host (modem) count right 


Ilda r1,modems 
endif 
call stath2 
lda ri,idies ; idle count 
call cksjam 
lda ri,=0 
call cksjam ;blank: #tip users 
lda r3,=0 
repeat 
lda r1,=0 
Ida r4,m2pb1k(r3)+ 
ifnot minus 


Ida ri, thrupt+foo(r4) ;modem throughput 
endif 
call cksjam 
set r1 = hiword+foo(r4) ;high-order thruput 
set r2 = loword+foo(r4) ; low-order (get both at once) 
save r2 ;save it 
call cksjam ;send high 
restore ri iget back low 
call cksjam yand send it 


until r3 >= modems 


endrepeat 
lda r3,=nfh2 ; throughput for reals only 
repeat 

Ida r4,h2pbik(r3) ;do host throughput 

if minus } r3 >= hosts ;if no host here 


lda r4,=<hetrl/words>-2 

repeat ;zero the host throughput files 
Ilda r1,=0 
call cksjam 
sub r4,=1 

until zero 

endrepeat 

else 
lda r2,=hetr1l-4(r4) 7A genuine host 


repeat ;send out host thruput stats 


lda ri,htpmtn+foo(r4)+ 
call cksjam 
while r4 < r2 


endrepeat 
endif 


f | . ») 


801 


+ 4BCA 4873 Ilda r7,r3 ;a modem with this -number? 
4BCC 49F8 sub r7,=nfh2 
4BCE 604B 6356 Ida r4,m2pb1lk-nfh2(r3)+ 


if minus } r7 >= modems 
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4BD2 
4BD4 
4BD8 
4BDA 
4BDC 
4BEO 
4BE4 
4BE6 
4BEA 
4BEE 
4BFO 


4BF2 
4BF4 
4BF8 
4BFA 


4BFE 
4C02 
4C04 
4C08 
4COA 
4COc 


4COE 
4C12 
4C16 


6324 
4042 
4042 


400A 
4008 


4042 
4D42 
6324 


6322 


SF86 
41F8 
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Ida ri,=0 ;mo -- just send zeros 


call cksjam 
call cksjam 

else 
Ilda ri,hiword+foo(r4) 
Ida r7, loword+foo(r4) 
if minus 

add ri,=1 

endif 
push r7 
call cksjam 
pop ri 
call cksjam 

endif 

lda r7,modems 

add r7,=nfh2 

until r3 >= hosts & r3 >= r7 


endrepeat 

Ilda ri,trbick 

call fjamend 
endroutine thrurpt 


;zero the counts. 

7X16 compatibility crock 

;this is the WEIRD X16 double precision 
syou figure this out} 

;send high order word first 


;now the low order word 


;decide if we’re done 
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4018 


4CiA 
4ciE 
4C20 
4024 
4028 
4cC2C 
4C30 
4034 


4038 
4C3C 
4C3E 
4C42 


4c44 
4C48 


4C4A 
4C4E 
4C52 
4c54 


4c56 
4CSA 
4CSE 
4C62 
4C66 


4C6A 


4C6C 
4CGE 
4C72 
4C76 


0001 


6166 
6206 


1076 


7018 
9A26 
4078 
4818 
4078 
4078 
4078 
4838 


707B 
8A04 
4938 
8AFB 


0001 
3038 
48CA 


601B 
4078 
49C1 
BAFB 


304B 
4838 
3038 
7018 
4078 


6006 


1076 
4078 
4078 
6006 


;trap report: finds traps and phantom traps if any and reports 
;them to NCC. Turns itself off if no more traps, otherwise freq 
;is left zero to empty tables quickly. , 


sit 2 PSE ;ARPANET case 
nilops=cilops 
nilend=cilend 

attft 32) PSE ;PSE case 
nilops=pilops 
nilend=pilend 

-ende ;z PSE 


routine traprp, arg r2, uses ri-r4 


:inserted all statements above call to fjamleader 
; to prevent sending zero traps to NCC - 10/26/86 BKM 


6166 Ilda ri,nilops(ro) ;check first word of traps 
ifnot zero ;if trap then send it else don’t 
419A call fjamleader varg r2 
80C8 lda r1,=sign+ 0310 ;pluribus "310" report 
4D42 call cksjam ; containing traps 
4C78 call stathd ;header stuff 
4CAC call trbsb2 yanomaly word and buf cnts 
oo08Cc Ilda r3,=<nilend-nilops-icilbuf> :last trap block 
repeat 
6166 until nilops(r3) ; trap here 
0014 sub r3,=Icilbuf ;to next latest buffer 
until zero :got to first 
endrepeat 
tf nz PSE ;PSE special trap case 
6164 sta r3,pilovp+words ;update RR pointer 
Ida r4,=lcilbuf/words show much to send 
repeat 
6166 Ida ri,nilops(r3)+ 
4042 call cksjam 
sub r4,=14 sanother sent 
until zero 
endrepeat 
6152 sta r4,nilops-Icilbuf(r3) ;;r4 = 0 ;clear and free ILLOP block 
0800 lda r3,= H800 :frequency for this stat 
5EB4 sta r3,trpsbt+statf ;reset Frequency 
SF86 Ida ri, trbick 
41F8 call fjamend 
endif 


endroutine traprp 


routine holdwd, arg r2 
419A call fjamleader 
41F8 call fjamend 
endroutine 


803 
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;auxilliary stats routines 


iwrite out headers of standard info 


4C78 1076 routine stathd, uses ri 

4C7A 7018 62DE Ilda ri,sync ; time 
AC7E 4078 4D42 call cksjam 

4C82 7018 6322 lda ri,hosts 

4cC86 4998 sub r1,=nfh2 

4C88 9002 entry stath2, uses ri 

4CB8A 1076 

4csc A691 sri ort; 

4C8E 4078 4042 call cksjam 

4c92 4894 Ida ri,=nfh 74 fake hosts 
4C94 4078 4D42 call cksjam 

4C98 7018 6324 Ilda r1,modems 

4csc A691 sri ori,1 

4CSE 4078 4D42 call cksjam 

4CA2 4818 OO7F Jda r1,=nimp 7# imps 


4CAG 4078 4042 call cksjam 
4CAA 6006 endroutine stathd 


' 805 
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FAKES.PLR;1 PAGE 33 Fake Hosts 
sbuffer allocation stats, anomalies, host and modem 
;counts 
4CAC 1076 routine trbsb2, uses ri, uses r3-r4 
4CAE 7018 6G2AE Ilda ri,anom ;anomalies word 
4CB2 3018 SF84 sta ri,banom ;copy for comparison 
4CB6 4078 4D42 call cksjam ‘ 
4CBA 7018 63CE Ida ri,maxnf 74 free bufs. 
4CBE 4078 4D42 call cksjam 
4CC2 7018 63C8 lock ri,nf-foo ;read w/o locking 
4CC6 SAFE 
4CC8 7618 63CE if ri <= maxnf 
4CCC SCOA . 
4CCE 7118 63D0 sub ri,minf ;to get remaining slush pool 
4CD2 4E18 0028 if ri >= = D4O : 
4CD6 9203 
4CD8 4818 0028 Ida ri,= D40 ;make it good 
endif 
4CDC 8BO2 if minus 
4CDE 4890 Ilda r1i,=0 ;should never get here 
endif 
endif 
4CEO 4078 4042 call cksjam 
4CE4 7018 63DE lda ri,cntrstnsf ;get excess s/f 
4CE8 8BO2 if minus 
4CEA 4890 Ilda r1,=0 
endif 
4CEC 4078 4042 call cksjam 
4CFO 7018 63DC lda ri,cntrstnre 
4CF4 7038 63D4 Ida r3,nal : 
4CF8 4913 sub ri,r3 ;we include nal in nre 
4CFA 8BO2 if minus 
4CFC 4890 Ilda r1,=0 :else zero if in min 
endif 
4CFE 4078 4D42 call cksjam 
4D02 4813 Ilda ri,r3 
4004 4078 4042 call cksjam 
4D08 4868 Ida r3,=nfh2 
repeat 
4DOA 48F3 Ilda r7,=3 ;default status 
4D0C 604B 6326 lda r4,h2pb1k(r3)+ 
4D10 S9BO4 ifnot minus 
4012 787C OOI1F ldab r7,hihd(r4) 
4D1i6 4BFF and r7,= HF 
endif 
4018 A294 sl1 r1,4 
4D1A 4C17 for 71,7 
4D1C 4FB7 next if r3 .bit. =7 
4D1E 8AFG 
4D20 4078 4D42 call cksjam 
4024 7638 6322 until r3 >= hosts 
4D28 92F1 
endrepeat 


4D2A 6006 endroutine trbsb2 
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4D2C 


4D2E 
4D32 
4034 
4D36 
4038 
4D3A 


4D3E 


4040 
4D42 
4044 
4048 
4D4C 


4D4E 


4D50 
4054 
4058 
4D5A 
4D5C 
4D5E 
4060 
4064 
4068 
4D06C 
4070 
4072 
4074 
4078 


4D7C 
4D7E 
4D82 
4D84 


4D86 
4D8A 
4D8E 
4D90 
4094 
4096 
4098 
4039C 
4D9E 
4DAO 
4DA4 


FFOO 


OOF F 


SF86 
414A 


63CO 
154A 


SEBA 
419A 
8003 
4042 


4042 
OOAO 


4042 


SF86 
41F8 
IS1E 


SF86 


SEC6 


PLURIBUS V2.9B 


- do a little for line stuff, 


25-Jun-87 10:57:29 PAGE 376 


then: 


include arg in checksum and then jam arg 


PAGE 34 Fake Hosts 
7; TSTJUAM 
;CKSJAM 
routine tstjam,arg ri-r2 
if rf .bit. = HFFOO 
if minus 
clear r1 
else 
lda r1,= HFF 
endif 
endif 
jor ri,r2 
entry cksjam, arg ri 


subm ri, troick 
call fjam 
endroutine cksjam 


;diag report: gets buf 
;to NCC for analysis. 


routine diagrp,uses ri- 


repeat 
Ida ri,=sckq 
call deque,whf2h 


until fail 

push r2 

push ri 

Ilda r2,=dgsb 

call fjamleader 

lda ri,=signt3 

call cksjam 

pop r2 

Ilda ri,r2 

call cksjam 

lda r3,=buflen(r2) 

repeat 
Ilda ri,(r2)+ 
call cksjam 
until r2 >= r3 


endrepeat 

lda ri,trbick 
call fjamend 

pop r2 

call flushb,whf2h 


Ilda r7,=0 
sta r7,trbick 
endrepeat 
lda r7,=0 
sta r7,dgsb+snon 
endroutine diagrp 


;do checksum 
;put into a packet. 
that failed soft cksm and send 


r3 


;cksum error diagnostic dump 


;save chainword 
;Save buf pointer 
:for sending leader 
:arg r2 

:report code 

;buf pntr 


:send buffer as well 


;get word from buf. 


;get chainword 


;restart checksum 


;turn us of f 
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1076 
4896 


7059 
8905 
4078 
4078 


4992 
8BF8 


4078 
6006 


1076 
4871 
AGF 1 
4A78 
3075 


4A18 
381D 
4A98 
381D 
4A18 
381D 
4825 
4078 
3C7E 
4A18 
381D 
4078 
3C04 
4A18 
6006 


636E 


4E00 
1B42 


5S4DE 


O2FC 
0030 
0007 
000D 
FFEO 
OOOE 
1160 
FFFO 
OOOF 
1160 


FFF8 
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3*** fake config *** 


routine fakcon 


Ilda ri,=nfh2-2 
repeat 
lda r5,v2pbik(ri1) 
if odd 
call gofh 
call csleep 
endif 
sub ri,=2 
until minus 
endrepeat 
call conclk 


endroutine fakcon 


routine bidfh, arg r1, arg r5 
Ilda r7,ri4 
srl ¢%y4 
add r7,=hostid+400-nFfh 
sta r7,(r5) 
add r1,=fakipoO 


stab ri,statihti(rs) 
add ri,=fakopO-fakipoO 
stab ri,statoht1(r5) 
add r1,=hbpidO-fakopoO 
stab ri,hbpid(rs) 

Ilda r2,r5 

call inbase,waitw 


add r1,=bhpidO-hbpido 
stab r1,bhpid(rs) 
call inbase,dozew 


add r1,=O-bhpido 


endroutine bldfh 
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72 * how many fakes. 

;fake ioblock pointer. 
:fake needs initialization. 
:initialize fake. 

:nap a while. 


;next fake. 


;configure RTC’s 


;Host number calculation. 


;Fakes are OFC - OFF 
;Device Type and number. 


;PID levels. 


;Recover Hast index. 
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4E00 
4E02 
4E06 
4EOA 
4EOE 


4E12 


4E16 
4E18 
4E1C 
4E20 


4E22 
4E22 
4E24 
4E26 
4E28 


4E2A 
4E2A 
4E2C 
4E2E 
4E30 


4E32 
4E32 
4E34 
4E36 
4E38 


4E3A 
4E3A 
4E3C 
4E3E 
4E40 


1076 
7049 
7059 
3049 
3059 


4078 


48F1 
307D 
307D 
6006 


44CO 
462C 
46FC 
48DA 


4534 
4668 
4832 
494E 


6E30 
6EB2 
6F34 
6FB6 


FOCO 
F130 
F1A0 
F210 


4E3A 
4E32 
6326 
636E 


40C2 


4014 
4016 


PAGE 36 Fake Hosts 


routine gofh, arg ri 
lda r4,ifakeh(rt) 
Ida r5,iiob13(r1) 
sta r4,h2pblk(r1) 
sta r5,v2pbIk(r1) 


call blidfh 


set r7 = #1 

sta r7,lockfd(r5) 

sta r7,lockfw(r5) 
endroutine gofh 


table waitpce 
frit 
flhd 
fh2suc 
discard 
endtable waitpc 


table dozepc 
fth 
fdh 
fh2jam 
stats 
endtable dozepc 


table iiobl3 
job13 
iobl4 
job15 
job16 
endtable iiobl3 


table ifakeh 
signtbhio 
signtbhit 
signtbhi2 
signtbhi3 

endtable ifakeh 
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ir1 is fake index. 

;host block address. 

i;fake io block 

shost parameter block address. 
:Fake host io block address. 


;set up constants in io block. 


:So an init happens 
;release fake for use by all. 


7Fake to TTY. 

;Fake to DDT. 

;Fake to Packet Core. 
;Fake to Discard. 


:Initial Jam side PC. 
;TTY to Fake. 
:DDT to Fake. 
;Packet Core to Fake. 
:Statistics to Fake. . 


;Fake IO block. 

:TTY Fake. 

;O0DT Fake. 

;Packet Core Fake. 
:Discard/Stats Fake. 


;Fake Host Parameter blocks, 
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- INSERT "FAKREL" 
-INSRT FAKREL 
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-stitle IMP Fakes Reliability 
 ¥reeeee timeout on fake page tttt**+*4 


;timeout dispatch table 


4E42 4DAG faktab: fakcon ;config routine 
4E44 1CC6 tickin 
4E46 4E68 rnal 
4E48 SAOA basetp 
4E4A 51B2 dedh 
4E4cC 5440 messto 
4E4E 4EB2 P rentrs 
4E50 SOAA buf t 
4E52 5356 bto 
4E54 5140 impdwn 
4E56 5928 gostat 
4E58 5S48E rihs 
4E5A 54C6 rfake 
4E5C SSF2 bktst 
4ES5E S2BE trbtim 
4E6O 5206 lites 
4E62 SADE nschk 
4E64 1CBC tosst 


4E66 O000 ° 
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FCOO 


4E68 
4EGA 
4E6C 
4EGE 


4E72 
4E76 
4E78 
4E7C 
4E7E 
4E82 
4E84 
4E88 


4E8C 


4E90 
4E94 


4E96 
4ESA 
4E9E 
4EA2 
4EAG 
4EA8 
4EAC 
4EBO 


0600 


1076 
48B0 
48A1 
4818 


7E29 
910D 
7079 
SAFE 
7E29 
9105 
7TA39 
7939 


3009 


4918 
8BEF 


4818 
7138 
4078 
7018 
SAFE 
3238 
3018 
6006 


0170 
6CB3 
ACBO 
6CB3 


6CB9 
6CB2 


ACBO 


0010 


63D6 
6304 
4FFC 
A3C8 


6304 
A3C8& 


PAGE 2 IMP Fakes Reliability 


;maintain the allocate count nal 
Page FakCode 


Routine rnal,uses ri-r3 


Ida r3,=0 i 
Ilda r2,=1 4 
Ilda r1,=emsstk-Irblk-messtk : 
repeat 


cmpb r2,messtk+reasst(r1) H 
ifnot equal $ 
lock messtk+reasIk(r1) FH 
cmpb r2,messtk+reasst(ri) 
ifnot equal ; 
addb r3,messtk+ral(r1) 
subb r3,messtktrsf(r1) 
endif 
unlock messtk+treaslk(r1) 
endif 
sub r1,=Irblk 
until minus 
endrepeat 


- 


lda ri1,=trenda 
sub r3,nal 
call fixer 
lock ri,nf 


ae oe ae oe 


addm r3,nal 
unlock r1,nf 
endroutine rnal 


<0 ae 
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accumulates nal 

idle reasst value 

Last reasblk index. 

for each reassembly block 

idle block? 

ifnot, do count allocates here. 
lock block to count. 


; just freed? 
No, count nal. 


next reas bik. 


which trend 

how far off? 

smooth fixing for fuzzy count. 
lock the counts. 


now adjust 
unlock 
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;count modem queues to verify slots count 
;can be made a routine by replacing uses of rG with r3 


FCOO 0200 Page DDTCode 
5440 7018 6324 maqcnt: Ida ri,modems 
5444 5049 6G35E maqcnti: Ida r4,mapbIk(-r1) 


5448 9835 bm mqcnts 

544A 787C 0002 Idab r7,phflag(r4) >is line down? 

S44E 4FF4 tst r7,=phup 

5450 9A31 bz mqcnts syes. so chnbsy may be wrong 
5452 487C 0082 Ida r7,=chnbsy(r4) 

5456 7O6C OOIC Ilda r6,maxchn(r4) ;calce slots in use 
545A AGE srl r6,1 

545C 49E1 sub r6,=1 

545E 70S5C 4000 Ida r5,lockm(r4) 

5462 SAFE bz .-4 

5464 716C 0050 sub rG,slots(r4) 

5468 4826 Ida r2,r6 yaccount for busy channels 
546A 6057 mqcent2: Ida r5,(r7)+ ;;chnbsy 

546C SAO5 bz mqcnt4 

S46E 49A1 mgqcnt3: sub r2,=1 

5470 4B5D FFFF and r5,=-1(r5) 

5474 8AFD bnz mqent3 

5476 4E7C 0092 maqcnt4: cmp r7.=chnbsy+<nmdlim*words/ D1G>(r4) 

547A 81F8 bne mqent2 ‘ 
547C 7O05C 0026 lda rS5,snding(r4) :count buffer, if any 
5480 9A02 e bz mecnts 

5482 49E1 sub r6,=1 ;else count it 

5484 485C 0034 maqcnt5: Ida rS,=ssentq(r4) :these are busy channels 
5488 4078 S4BA jsb r7,countq 

548C 4E26 cmp r2,r6 ;this checks chnbsy 

548E 810B bne macnt6é ; loses 

5490 485C OO3C Ida r5,=sreaqq(r4) ynow check slots 
5494 4078 S4BA jsb r7,countq 

5498 485C 0038 Ida r5.=spriq(r4) 

549C 4078 S4BA jsb r7,countq 

S54A0 4866 Ilda r6,r6 ;checks slots count 

54A2 SAO6 bz macnt7 imatches 

54A4 E4C8 mqcnt6: Trap 2310,<:modem state mismatch - page 380> 
54A6 4868 O2F8 Ilda sp,=lIstack ;need a stack 

54AA 4078 1CF4 call killin 

54AE 300C 4000 macnt7: sta rO,lockm(r4) 

54B2 4811 mgents: Ida ri,ri 

54B4 8ACB8 bnz mqcnti 

54B6 4008 iBEE tr toss~x 


;count a queue into r6 


54BA 7055 countq: Ida r5,(r5) ;get next buffer 

54BC 9903 bo coung3 ;empty queue 

54BE 49E1 sub rG6,=1 

54CO 8BFD bnm countq :falls though on error 
54C2 4007 counqg3: jmp (r7) 

FCOO 0200 dstolist maqcnt 


AENE BAAN 
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.comnt | 

RCNTRS 


maintain the buffer counters 

try for minmi=m+21m+1,minsf=3Im,minhi=Ih,minbak=3,minre=14+81h,minrut=4 
where m=total modems, Im=live lines, Ih=live hosts(m+Sim+91h+t9) 

if too few buffers use minmi=mtt.minsf=m,minhi=2,minbak=1,minre=9, 
minrut=4; then put sum of these in minf(2m+17) 


;routine rentrs 


4EB2 1076 routine rentrs, uses ri-rs 
4EB4 4858 FFFD lda r5,=-3 
4EB8 3058 646C sta rS,newcts+nbak ;default 
4EBC 4818 FFFF Ida r1,=-1 yminmi 
4ECO 48B0 Ilda r3,=0 ;minsf 
4EC2 7058 6324 Ilda r5,modems ;to count modems 
repeat 
4EC6 504D 635E Ida r4,m2pbik(-r5) ;any param blk? 
4ECA 9BO8 ifnot minus 
4Ecc 4991 sub ri,=1 71 for minmi 
4ECE 787C 0002 if byte phflag(r4) .bit. =phup :if line is up 
4ED2 4FF4 
4ED4 S9AO3 
4ED6 4992 sub r1.=2 ;bump minmi 
4ED8 4983 sub r3,=3 ; and minsf 
endif 
endif 
4EDA 88F6 until loop 
endrepeat 
4EDC 1036 push r3 ;remember minsf 
4EDE 48B0 Ilda r3,=0 ynext nvdhi 
4EEO 48A0 Ilda r2,=0 pnext nhi 
4EE2 7058 6322 Ilda rS,hosts :count hosts 
4EE6 49D8 sub r5,=nfh2 ;reals only 
repeat 
4EE8 504D 632E Ida r4,h2pbik+nfh2(-r5) next param blk 
4EEC SBOA ifnot minus 
4EEE 787C OOI1F ifnot byte hihd(r4) ;ready line? 
4EF2 8A02 
4EF4 49A14 sub r2,=1 ;:hostup ;1 for minhi 
endif 
4EF6 707C 0002 if hostyp(r4) #hosvdh :VDH gets 3 each 
4EFA 4EF4 
4EFC 8102 
4EFE 49B3 sub 3,=3 
endif 
endif 
4FOO 88F4 until loap 


endrepeat 
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4FO2 6046 pop r4 ;get back minsf 
4FO4 4852 Ilda r5,r2 :for minre: 
4FO6 A2D3 s11 rs,3 78 Ih 
4FO8 49Di sub r5,=1 oe 4 
4FOA 48F7 Ida r7,=7 iminf sum, start w/nbak+nrut 
4FOC 4971 sub r7,ri ;add up all the counts 
4FOE 4972 sub r7,r2 
4F10 4973 sub r7,r3 
4F12 4974 sub r7,r4 
4F14 4975 sub r7,r5 : 
4F16 7178 40D0 sub r7,intpti ;add ptip counter 
4F1A 7178 40D2 sub r7,intpit ;add other ptip counter 
4F1E 7678 63CE if r7 >= maxnf ;more than total buffs 
4F22 9216 
4F24 A491 sra ri,1 ;cut ri in half 
4F26 4841 lda r4,ri iminsf = <m+21m+i>/2 
4F28 4991 sub ri,=1 yminmi = <m+21m+1i>/2+1 
4F2A 4828 FFFE lda r2,=-2 iminhi = 2 
4F2E A4B1 sra r3,1 sminvdh = <3v>/2 
4F30 4858 FFFF lda r5,=-1 ;minbak = 1 
4F34 3058 646C sta r5,newcts+nbak 
4F38 4858 FFF7 lda r5,=- D9 iminre = 9 
4F3C 4878 0010 Ilda r7,= D1i6 ;minre+minhi+minbak +minrut 
4F40 4971 sub r7,r1 7+minmi 
4F42 4973 sub r7,r3 :+minvdh 
4F44 4974 sub r7,r4 ;+minsf 
4F46 7178 4002 sub r7,intpit ;and TIP counters 
4F4A 7178 40D0 sub r7,intpti 
endif 


4F4E 3078 63D0 sta r7,minf ;save new minf 
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4F52 3028 646E sta r2,newetstnhi 


4F56 4878 6460 Ilda r7.=newcts ;speed things a bit 
4F5A 2017 sta r1,(r7)+ :3nmi 

4F5C 2037 sta r3,(r7)+ 9 :3;nvdhi 

4F5E 2057 sta r5.(r7)+ s;:nre 

4F6O 2047 sta r4.(r7)+ sinsf 

4F62 4848 FFFC lda r4,=-4 ;nrut always 

4F66 2047 sta r4,(r7)+* <sinrut 

4F68 7058 40D2 lda r5,intpit :for ntipit 

4F6C 2057 sta r5.(r7)+ ;:ntipit 


4FGE 7078 40D0 set newctst+ntipti = intpti 
4F72 3078 G48E 


4F76 4078 1C34 call tsleep ;take a break 
4F7A 7018 63CC Ilda ri,maxbuf ; index thru where table 
repeat 
4F7E 48F14 lda r7,=1 :for addm 
repeat 
4F80 5039 9960 lda r3,where(-r1) ;next buff free? 
4F84 SAO5S ifnot zero 
4F86 4B38 OOSE and r3,=whetr 
4F8A 327B 6460 addm r7,newets(r3) 
endif 
4F8E 4F18 OOSE while rf .bit. = H3E suntil sleep time 
4F92 8AF7 
endrepeat 
4F94 3018 6514 sta ri,totmp! sremember ri 
4F98 4078 1C34 call tsleep ;and sleep again 
4F9C 7018 6514 lda ri,totmp1 :more to count? 
4FAO 8AEF until zero 
endrepeat 
4FA2 7038 63D4 lda r3,nal ;remember nal is in nre 
4FAG6 3238 6464 addm r3,newcts+nre 


;more rentrs over leaf 
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4FAA 


4FAE 
4FB2 
4FB6 
4FBA 
4FBE 
4FC2 
4FC4 
4FC8 
4FCC 


4FCE 
4FD2 
4FDG 
4FDA 
4FDE 


4FEO 
4FE4 
4FEG 


4FE8 


4FEA 
4FEC 
4FFO 
4FF4 
4FFG 
4FFA 


4858 


703D 
713D 
481D 
4078 
7078 
SAFE 
123D 
3078 
88F1 


4078 
4818 
7038 
7048 
SAFE 


5029 
9B02 
4932 


88FC 


4934 
4818 
4078 
4h43 
3048 
6006 


0044 


645E 
63D6 
641A 
4FFC 
A3C8 


63D8 
A3C8 


1034 
0044 
63CE 
A3C8 


63D8 


63D2 
4FFC 


A3C8 
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;more rentrs 
Ida r5,=numetstwords 
repeat 


lda r3,newcts-words(rs) 
sub r3,cntrs-words(r5) 
Ilda r1i,=trends-words(rs) 


call fixer 
lock r7.nf 


addm r3,cntrs(-r5) 
unlock r7,nf 
until loop 
endrepeat 
call tsleep 
lda r1,=numctstwords 
Ilda r3,maxnf 
lock r4,nf 


repeat 
Ilda r2,cntrs(-r1) 
ifnot minus 
sub r3,r2 
endif 
until loop 
endrepeat 
sub r3,r4 
Ida ri,=trendf 
call fixer 
add r4,r3 
unlock r4,nf 
endroutine rentrs 
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PAGE 386 


: index for adjustina 
;adjust counters 
;next one 
;error in it 
;ptr to trend 
;fuzzy adjustment 

; lock counts 


;adjust it 
;and unlock again 
:table done. 


;wait a little more 
;will loop thru aaain 
;total buffers in system 
; lock counts 

: include count in nF 
;next count 

;counter in shared pool. 
;adjust new nf 


;error in nf 

;ptr to trend 

;fuzzy adjust 

;change nf 

;uUnTock with fixed nF 
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.comnt | 

FIXER 


Maintain fuzzy counters. enter with a error in 

r3, ptr to trend in ri. return amount to fix in rg. fix if 
trend has accumulated more than fclip in some direction. 
maintain trend. 


4FFC 1076 routine fixer,arg ri,arg r3,local r2 
4FFE 1026 

0O00B fclip= D114 >; must be less than 14 
5000 7021 Ida r2,(r1) ; fetch old trend 
5002 AOA1 sla r2,1 
5004 7221 add r2,(ri) ; times 3 
5006 AOB4 sla r3,4 : 4 bits fraction 
5008 4A23 add r2,r3 ; new trend 
SOOA A4A2 sra r2,2 : is exponentially weighted average” 
500C 4832 Ilda r3,r2 5 
SOOE 8BO2 if minus 
5010 4AB5 add r3,=-<2*< H10-fclip>- H10+1> > ha} 

endif 

5012 4AB5 add r3,= H10-fclip 
5014 4B38 FFFO and r3,=- HIO 
5018 4923 sub r2,r3 ; fixed trend 
501A 3021 sta r2,(r1) : restore trend 
501C A4B4 sra r3,4 : amount to fix centr 
5O1E 6026 endroutine 


5020 6006 
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5022 
5024 
5026 
5028 
502C 
5030 
5034 
5036 
503A 
503C 
SO3E 
5042 
5044 
5046 
504A 
SO4E 
5050 
5054 
5056 
5O5A 
505C 
5060 
5062 
5066 
5068 


1076 
1036 
0210 
TO3A 
4B38 
7638 
811C 
TOTA 
4037 
4AFA 
T17A 
9A14 
A2B4 
4938 
4E38 
910E 
4E38 
910B 
4E38 
9108 
4E38 
9105 
4E38 
9102 
0290 


FCBO 
FEOO 
ooD2 


FCBO 


FCAG 


O2B0 


OF70 


12CO 


1610 


1960 


1CBO 
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;check a point word 
; r2/chain word 
routine chkpnt.,arg r2,local r3 


rst “fi ; default is success. 
lda r3,point-chain(r2) ; get the point word: 
and r3,=mapmsk 
if r3 = mapv2 ; Buffer on V2 page. 
Ilda r7,point-chain(r2) ; get point again. 
eor r3,r7 ; remember offset for later. 
add r7,=buflen/ H10 
sub r7,<point-chain>-<5*words>(r2) 


ifnot zero 
sll r3.4 ; Adjust to ease checking. 
sub r3,=O/<mnbuf2-buf len> 
if r3 <> =Ofpoint & r3 <> =Of#chain & r3 <> =O#Chan 


if r3 <> =O/where & r3 <> =O¢4f lushd 


sst “%f1 : Point word is bad. 
endif 


endif 
endif 
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SOGA 
506C 


5070 
5074 
5076 
5078 
SO7A 


507C 
SO7E 
5080 
5082 
5086 
508A 
508C 
5090 
5094 
5096 
5098 


SOSA 
509C 
SOSE 
50A2 


SOAG 
50A8 


9018 
4818 


50793 
9903 
7637 
9102 
88FB 


9103 
0290 
900D 
753A 
4E38 
3108 
703A 
T13A 
4EBA 
9102 
0290 


8506 
E101 
4838 
3038 


6036 
6006 


o000c 


563A 


FCBO 
O1F6 


FCAE 
FCBO 


FFFF 
80BE 
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else 


rirst %e 
Ida ri,=bfmpnd-bufmap 
repeat 

Ilda r7,bufmap(-r1) 


until even & r3 = (r7) 


until loop 
endrepeat 


ifnot equal 
sst %f1 
else 


eor r3,point-chain(r2) 
if r3 <> =< H2000-buflen>/ H10 


Ilda r3,point-chain-2(r2) 
sub r3.point-chain(r2) 
if r3 <> =buflen/ H10 


sst %fi 
endif 
endif 
endif 


endif 


if fi : 
Trap 401,<;smashed buf ptr--may cause 


lda r3,=-1 
sta r3,m2/type4dk 


endif 
endroutine 


10:57:29 PAGE 389° 


Buffer on other page. 
On any buffer page? 


Get pointer to page. 
buffer on buffer page. 


Buffer not on buffer page. 


Buffer not on buffer page. 


Broken buffer pointer. 


Offset on page. 


Point of prev. 


less this point. 
Difference wrong 


; Whoops, flag as error. 


pointword bad. 


; smash v2 type word. 


Not first on page 


retrans - page 387> 


821 
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.comnt 

Test the buffer system. First check each buffer for timeout and mark 
it. Then check the consistency of the free list, salvaging any valid 
prefix if possible. This whole process should take BUFCYCLE / 16 


ticks. 
| 
O7FF bufcycle = packm/4 
34 ticks per buffer timeout cycle * 16. 
;must be one less than a power of 2 and > maxbuf. 
S5OAA 1076 routine buft 
begin buftick 
SOAC 7048 64AC lda r4, buftim ; local copy 
repeat ;until end of buffers 
5O0BO 4848 O7FF and r4,=bufcycle ; :keep buffer timeout cycle reasonable 
50B4 482C 92CO Ilda r2,=chain(r4) 7r2 is chain ptr corresp. to offset in r4 
50B8 7648 63CC until r4 >= maxbuf ;end of buffers 
5OBC 8213 
SOBE 4078 5022 call chkpnt , ;check this buffer’s point word 
50C2 703A OSFO Ida r3,flushd-chain(r2) 
50C6 8906 if odd ;still marked 
50C8 707A O6AO lda r7,where-chain(r2) 7Ffyi 
50CC E281 Trap 1201,<;Recovd a timed-out buf - page 388> 
5OCE 4078 5106 call Flpool :free this buffer 
endif 
5OD2 48F1 Ida r7,=1 ;now mark buffer by: making it odd 
50D4 347A O9SFO iorm r7,flushd-chain(r2) 
50D8 4AC2 add r4,=2 ;next iteration, look at next buffer 
SODA 4FCE ifnot r4 .bit. = HE ;each tick do only 8 buffers 
50DC 8A02 
50DE 9011 leave buftick 
endif 
50EO SOE8 endrepeat . 
:if just finished marking buffers, check freelist 
50E2 810D if equal ;(see previous "“until") 
SOE4 4078 3CF8 call chkfree : 
50E8 8A06 if fail :Salvage what we can from free list 
SOEA 3058 A3C6 sta r5,freend ;last good free buffer (set by chkfree) 
SOEE 9903 if even ;nonempty list 
SOFO 48A1 Ida r2,=1 ; terminate list here 
5OF2 3025 sta r2.(r5) 
endif ;even 
endif ;fail 
SOF4 3018 A3C4 unlock ri,free 
SOF8 4B48 FFFO and r4,= HFFFO ;must cycle around to O 
endif ;equal 
SOFC 4A48 0010 add r4,= H10 ;keep counting to remain on schedule 
end buftick 
5100 3048 64AC sta r4,buftim ;remember for next tick 


5104 6006 endroutine buft 
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Check consistency of free list. Returns last good free buffer in r5 or 
1 if there are none. Locks FREE. Returns failure if there is a 
problem with the free list or if the free list is empty and freend was 
unlocked. This is a bum; effectively a fail return is taken iff r5 
should be stored in FREEND. In the case where r5 is even, since it 
points to the last good buffer the list, the list should be terminated 


there. 
| 
page LCode 
SCF8 1076 routine chkfree, result rS, uses ri-r3 
3CFA 4078 5022 call chkpnt ;check point wd for junk 
3CFE 48B0 Ida r3,=0 ;counts free list. 1 more than # found 
3D00 48D1 lda r5,=1 :r5 is last good free buf. So far, none. 
3D02 7018 A3C4 lock ri,free 
3D06 SAFE 
3D08 9915 if even nonempty free list 
3DOA 4821 lda r2,ri 
repeat suntil end_of free list 
3DO0C 707A O6GAO if where-chain(r2) 
3D10 9A05 
Trap 1302,<;free list buf err--WHERE nonzero - page 389> 

3D12 E2C2 . 
3D14 6076 fail return 
3D16 4FFO 
3D18 4007 

endif 
3D1A 300A OSFO sta rO,flushd-chain(r2) :"unmark" this buffer so won’t time out 
3D1E 4AB2 add r3,=2 ;count this buffer 
3D20 4852 Ida r5,r2 ; ;last good buf so far 
3D22 7022 lda r2,(r2) :get next buffer 

if r3 > maxbuf :surely in a loop (maxbuf = 2*no. of bufs) 
3D24 7638 63CC 
3D28 8CO3 
3D2A E208 Trap 1010,<:free list in loop - page 389> 
3D2C SOF4 fail return 

endif 
3D2E 89EF until odd :(from ida r2,(r2)). 

endrepeat 

3D30 9007 else ;empty Free list 
3D32 7078 A3C6 if freend ,if nobody else is, check freend 
3D36 9SA04 
3038 9902 if even 
3D3A E209 Trap 1011,<;:lost the free list - page 389> 

endif 
3D3C SOEC fail return 


endif ;freend 
endif ;even 
3D3E 6006 endroutine chkfree 
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FCOO 


5106 
5108 
510A 
510E 
5110 
5112 
5114 
5118 
511C 
ST1E 


5120 


5124 
5128 
512A 
512C 
5130 
5132 


5136 
5138 
513C 
513E 


0600 


1076 
1016 
7018 
SAFE 
4491 
48FO 
307A 
3018 
48F 1 
3072 


300A 


7018 
SAFE 
8906 
7078 
SAFE 
4818 


3021 
3028 
6016 
6006 


A3C8 


O6AO 
A3C8 


OSFO 


A3C6 


A3C4 


A3c4 


A3C6 


PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 392 


PAGE 13 IMP Fakes Reliability 


;routine used by fakes only, to free a buffer to shared pool 


page FakCode 
routine flpool, local ri, 
lock ri,nf 


add ri,=1 

Ilda r7,=0 

sta r7.,where-chain(r2) 
unlock r1,nf 

lda r7,=1 

sta r7,(r2) 


sta rO,flushd-chain(r2) 
lock r1,freend 


if odd 
lock free 


Ilda ri,=free 
endif 
sta r2,(ri) 
unlock r2,freend 
endroutine flpool 


arg r2 
; lock shared pool 


;add buffer to shared pool. 


;release shared pool. 
:;last buffer on list. 


imark buffer as recently flushed. 
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; a routine to periodically search transaction blocks 
; for messages, message fragments, etc, from a dead stream. 


; fixed to clean up TRNBLKs of dead message streams properly. 


FCOO 0200 page DDTCode 
54C4 4838 8910 dedtrn: Ida r3,=trnblk 
54C8 781B OOOD dedsO: Idab ri,trstat(r3) 


54CC SA78 bz deds2 :empty transaction block 
54CE 4E98 cmp ri,=ttledr ;on leader queue? 

54D0 9157 be dedsi ;sure nuff 

54D2 4F18 0080 tst ri,=ttresv ;host reserve it? 

S4D6 8A7D bnz deds12 :yes, make sure it’s ok 
54D8 7858 0005 ldab r5,trhsti+1(r3) smes bik 

54DC 4E58 0038 cmp r5,=tmnum 

5S4EO 8257 bng deds9 ;number too big 

54E2 A2D4 sll r5,4 ;its index 

54E4 707D A930 lda r7,tmlock(r5) 

54E8 SAFE bz .~4 

54EA 7E1B OOOD cmpb ri,trstat(r3) 

S4EE 8145 bne dedsi6 pnot really ours anymore 
54FO 787B 0005 Idab r7,trhstl+i(r3) 

S4F4 A2F4 sll r7.4 

S4F6 4E75 cmp r7.r5 . 

S4F8 8140 bne deds16 

54FA 707D 6938 set r7 = tmmess(r5) pput impnumber check at end 
54FE 757B OOOA eor r7,triuse(r3) 

5502 4F78 OOFO tst r7,=luse 

5506 8A6F bnz deds7 

5508 7078 0004 set r7 = trhstl(r3) 

550C 4C78 OOFF ior r7,= HFF 

5510 717D 6938 sub r7,tmmess(r5) 

5514 8B68 bnm decs7 

5516 4A78 0800 add r7,= H800 


554A SB65 bm deds7 
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551C 707D 6932 set r7 = tmimp(r5) ;check dest imp 
5520 8B2C if minus ;block idle. maybe need to clean up 
5522 4868 O2F8 set sp = #l1stack ;trnfls needs this 
5526 4078 18C6 call trnfls :;get rid of buffer 
552A 4F91 if ri .nbit. =ttrfnm ;;trstat :this doesn’t need reply 
552C 8A06 
552E 707B OOOC Ida r7,trntim(r3) ritrstat :free block w/o sending reply 
5532 357B OOOC eorm r7,trntim(r3) ;clear it out 
5536 9021 else ;make and send reply 
5538 707B OOOA lda r7,trdeds(r3) ;clear deadstatus 
553C 357B OOOA eorm r7,trdeds(r3) 
5540 48F7 setb trtypl+1(r3) = =cdestd ;set up dest dead reply 
5542 387B 0003 
5546 48FF set r7 = =subtyp ;put in "dest imp dead" subtyp 
5548 347B 0008 iorm r7,trmidil(r3) ;turn on al) bits first 
554C 48FF set r7 = =subtyp-cimpd ; then change 
554E 317B 0008 subm r7,trmidl(r3) ;..just subtyp 
5552 701D 6936 set ri = tmceti(rS) ;fix mess handling stuff 
5556 4B18 7000 and ri,#getmax 
555A A694 srl r1,4 
555C 707D 6936 Ida r7,tmcti(r5) ;check priority bit 
5560 8B03 if minus ;;priled 
5562 4C18 8000 ior ri,#priled 

endif 
5566 7C1D 6934 jiorb ri,tmhost(r5) ;include foreign host 
556A 784D 693F setb r4 = tmihn(r5) ;get local host 
S56E 704C 6326 set r4 = h2pblk(r4) 
5572 9B03 ifnot minus ;good hosts only 
5574 4078 188E call ledp2 ;KILLS STACK 

endif 

endif 
endif 

5578 300D A930 dedsié6: sta rO,tmlock(r5) 
557C 9020 br deds2 
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SS7E 
5582 
5586 
558A 
558C 
5S58E 
55390 
5594 
5596 
5598 
559A 
559E 
55A2 
55A4 
55A8 
SSAA 
SSAE 
55B0 
55B4 
55B6 
5568 
55BC 
55CO 
55¢4 
55C6 


55CA 
55CE 


55D0 
55D4 
5508 
5SSDA 
SSDE 
SSEO 
55E2 


55E4 
SSEG 
SSEA 
SSEE 
5S5FO 
5S5SF4 


FCOO 
4EEO 
4EE2 
4EE4 
FCOO 


704B 
7068 
S64E 
910D 
88FD 
48C1 
394B 
8A14 
E681 
48FO 
307B 
307B 
900D 
TO7TC 
SAFE 
764B 
810E 
7O1C 
8A0B 
E683 
4078 
4A38 
4E38 
8182 
4008 


300C 
9OF7 


7068 
5O4E 
9B04 
763C 
S1EF 
88FA 
90D6 


E684 
4868 
4078 
48FO 
307B 
90C2 


0200 
54¢c4 
1CBC 
0000 
0600 


OOOE 
6322 
6326 


folerele; 


OOOE 
OO00C 


405C 
OOOE 
OOSE 
18AA 
0010 
8F50 
1BEE 
405C 
6322 
6326 


OO2E 


O2F8 
18C6 


lolelele: 


PAGE 16 


deds1: 


dedsS: 


dedss: 


deds6: 


deds2: 


deds10: 


deds12: 
deds13: 


deds15: 


deds7: 


dsto 
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lda r4,trhost(r3) shost it’s queued on 
Ilda rG,hosts ;set up for search 
cmp r4,h2pbik(-rs) she there? 

be deds6 ;sure, no worries 
bnip deds5 ;check the whole table 

Ilda r4,=1 

subbm r4,trntim(r3) 

bnz deds2 :still young 

Trap 3201.<:Flushing an old trnblk - page 393> 
lda r7.=0 :get rid of trnblk 

sta r7,trhost(r3) 

sta r7,trntim(r3) ;;trstat ;free the block 
br deds2 sback into the loop me 
lda r7,lockih(r4) 

bz .-4 ; 

cmp r4.trhost(r3) 

bne cdeds!0O 

Ida ri.nxtled(r4) zany leaders for host? 
bnz dedsioO :yes, it’s okay 

Trap 3203,<;requeueing trnblk for TH - page 393> 
jsb r7,ledpf ;poke host for this leader 


add r3,=trn) 

cmp r3.=trnbilk+trntot 

bne dedsoO ;do all transaction blocks 
jmp tossx 


sta rO,lockih(r4) 
br deds2 


Ilda rG,hosts :find owner 
Ilda r4,h2pbik(-r6) 

bm deds15 

cmp r3.hitran(r4) 

be deds2 ;found him 

bnip dedsi3 

br deds9 slet him time out 


Trap 3204,<;trnbik/tmbIk mismatch - page 393> 
Ida sp,=Istack ;needed by trnfls 

call trnfls 

set trntim(r3) = #0 pitrstat 

br deds16 


list dedtrn 


page FakCode 
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;send all hosts an imp-going-down if igdown set 


5140 7018 SF8C impdwn: Ida r1,igdown :send mess? 


5144 7218 SF8E add ri,igdflag 

5148 9A33 bz impdx ;nope 

514A 7058 6322 lda r5,hosts : 
S14E 49D2 sub r5,=words : last possible host 

5150 704D 6326 impdip: Ida r4,h2pblk(r5) 

5154 9B26 bm impdl4 :skip if no host 

5156 783C OOI1F ldab r3,hihd(r4) ;host alive? 
S15A 8A23 bnz impdl4 ::hostup ;nope, skip him 
515C 7078 A4A8 Tock trnlok 

5160 SAFE 

5162 4838 8F40 Ida r3,=trnbik+trntot-trnl :last trn blk 
5166 787B OOOD impd12: ldab r7,trstat(r3) ;tran blk state 
516A SAOB bz impdl3 :got a free one 

516C 4938 0010 sub r3,=trnl ;try another 

5170 4E38 8910 cmp r3,=trnblk 

5174 82F9 bng impdi2 ; look more 

5176 3008 A4A8 sta rO,trniok :untock trn blks 

517A 4078 1C30 jsb r7,otsleep ;try again later 

517E S0ES br impdip 

5180 4818 OFOO impd13: Ida ri,=ihcode' ;for new-format 

5184 2013 sta ri,(r3)+ ; into tran bik: trnetl 
5186 4892 Ida ri,=cimpdn ;leader type 

5188 2013 sta r1,(r3)+ ;trtypl 

518A 4890 Ida ri,=0 

518C 2013 sta ri,(r3)+ ;trhstl 

518E 2013 sta ri,(r3)+ ;trdstl 

5190 7018 SF8C Ida r1, igdown ;imp midi 

5194 3013 sta r1,(r3) ;trmid) 

5196 49B8 sub r3,=trmidl ;back to head of trn blk 
5198 4078 188A jsb r7,ledpo ;put it in host 

519C 3008 A4A8 sta rO,trnlok 

51A0 49D2 impd14: sub rS,=words :more hosts? 

51A2 8BD7 bnm impdip ;yup, keep on 

51A4 48FO Ida r7,=0 ;done, turn us off 

51A6 3078 SF8C sta r7, igdown ;by zeroing igdown 

S1AA 3078 SF8E sta r7,igdflag 


S1AE 4008 1BEE impdx: jmp tossx ;done this routine ? 
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FCOO 
SSF6 
55SF8 
SSFC 
5600 
5602 
5606 
5608 
560C 
SG60E 
5612 
5614 
5618 
561C 
S61E 
5622 


5624 


FCOO 
4EE2 
4EE4 
4EE6 
FCOO 


0200 
1076 
7018 
7028 
SBOA 
4E28 
9CO7 
4E18 
9204 
4E18 
9209 
4878 
3078 
48FO 
3078 
E2c9 


6006 


0200 
SSF6 
1CBC 
0000 
0600 


64B6 
64B4 


0018 
64B8 
64D0 


64B8 
64B6 


64B4 


PAGE 
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timeout verification that ring is still good. 
traps with ri = old ringf, r2 = old ringe 
page ddtcode 


routine rngchk, uses ri-r2 


Ida ri,ringf yring pointer. 

Ida 1r2,ringe :ring counter, 

if minus } r2 > =ringin } ri < =ring } r1 >= = ringe 
Ida r7,=ring jbad, so re-initialize the ring structure. 
sta r7,ringf ;pointer. 
Ida r7.=0 ;counter initial value. 


sta r7,ringc 
Trap 1311,<;ring structure broken in timeout - page 395> 


endif 


endroutine 


dstolist rngchk 


page fakcode 
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5202 


5204 


88E2 


SOF3 


62E0 


62EO 


6322 


632E 


OO1F 


0020 
0006 
1000 


002C 


6512 
OO1F 


0052 
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;for all real hosts - set hihd=1 


if ready line down, hihd=0 


;if ready line up and hihd is Di 


;also count myimp down 


routine dedh 
lda r7,myimp 
ifnot zero 
sub r7,=1 
sta r7.myimp 
endif 


;we’re not up to net. 


lda r7,hosts ;all hosts 
sub r7,=nfh2 ;exclude fakes 


repeat 
Ilda r4,h2pbik+nfh2(-r7) 
ifnot minus 
Ida r2,=hrdown 
Idab ri.hihd(r4) 
if r1 <> =hninit 


Ida r5S, iobloc(r4) 
Ilda r3,statih(rs) 
if r3 .bit. =hready 


eor r2,ri 
ifnot zero 
next ifnot loop 
return 
endif 
sta r2,deadsc(r4) 
endif 
{F #2 <> £1 


sta rO,ophgo 
stab r2,hihd(r4) 
ifnot zero 
sta r2,ihtt(r4) 
endif 
endif 
endif 
endif 
until loop 
endrepeat 
endroutine dedh 


;no host here. 


;current state 
snot initializing 


;ready line up. 


shost already up(hihd was 0) 
;do next host 
;no more, quit 


;clear host down status 
; changed 
;;hostup 


thost down. 
;ready flap > reset him 
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5206 
5208 
520C 


5210 


5214 
5218 
521A 
5S21E 
5220 


5222 
5226 


5228 
522A 
522C 
S22E 
5232 


5234 


5236 


1076 
4818 
4838 


0001 
4858 


5049 
9B08 
787C 
8A02 
40B1 


735C 
4C57 


4871 
A2F7 
4C57 
3059 
A7B1 


88EE 


3038 


0020 
FFFF 


BOOF 
632E 


OO1F 


0020 


6300 


62EE 


PAGE 20 IMP Fakes Reliability 
;routine to make up lights word like 316’s have 


routine lites 


Ilda ri,= D1iG*words :for 16 hosts only 
lda r3,=-1 
repeat 
.if nz PSE ;PSE feature: fancy DISPLAY 
Ilda r5,= HBOOF :non-existant Host 
stft? snz PSE 
lda r4,h2pblk+nfh2(-r1) shost blk? ‘ 
ifnot minus ;there is one 
ldab r7,hihd(r4) 
if zero ;up 
eor r3,=1 ;turn this host on 
endif 


~I#t ¢NzZ PSE 
and r5,iobloc(r4) ;get AOOO or BOOO 


jor r5,r7 ;and host state 
~iftf snz PSE 
endif 
-ift ;nz PSE 
Ilda r7,r1 
SE TF ;Host number in left half 
tor. 5,77 
sta r5,hdisp(ri) ;put away for Display . 


rei or3.1 :PSE lights left-to-right 
if tf ;nz PSE : 
until loop 
oVtT 7nz PSE 
FIA rs. ;ARPA host lights right-to-left 
if tf :nf PSE 
endrepeat 
sta r3,watchh :save up host lites 
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Tet +nz PSE 
Ilda r3,=0 ;initial mask for modems 
Ilda ri,modems ;do modems we have 
A i. :nz PSE 
523A 4838 FFFF lda r3,=-1 ;initial mask for modems 
523E 4818 0010 Ilda r1,/#nmdtwords ;do all m2pblk 
-tttF 7nz PSE 
repeat 
tft: sanz PSE 
5242 4858 DOOF Ilda r5,= HDOOF ;non-existant modem 
-iftf ;nz PSE 
5246 5049 635E Ida r4,m2pb1k(-r1)  ;now for a line 
524A SBOC ifnot minus ;none here 
-ift ;nz PSE 
524C 735C 0020 and rS,iobloc(r4) yget COOO0/DO0O 
5250 7C5C OO1E iorb rS,mloop(r4) ;loop bits (40 or 80) 
TFtF nz. PSE 
5254 787C 0002 if byte phflag(r4) .bit. =phup 
5258 4FF4 
525A 9A03 
525C 4DB1 eor r3,=1 ; line up 
.ift ;nmz PSE 
525E 9002 else ;down 
5260 4CD1 jor r5,=1 
-1ftf snz PSE 
endif 
endif 
5262 A7B1 rrit r3,4 ;left-to-right lites 
-ift 3;nz PSE 
5264 4871 Ida r7,ri :modems 0-7 
5266 A2F7 sll r7,7 ;number in left 
5268 4C57 tor 5,77 
526A 3059 62FO sta r5,mdisp(ri1) ;store for Display 
<I#tF snz PSE 
S2GE 88EA until loop 
endrepeat 
iff snz PSE 
eor r3,watchh ;add in the host lights 
sta r3,watch ;Save the word now 
TRE 7nz PSE 
5270 A6B8 sri sr3, D8 ;get just 8 modems 
5272 3838 62D8 stab r3,watchs ; into upper lites 


.endc :nz PSE 
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;check lite pointers 


5276 7038 62D2 Ilda r3,watm1 

527A 3038 FCO4 sta r3,%map2 

527E 7OB8 62D0 Ilda r3,@watch! :see this location? 
5282 8011 qutpat badlit 

5284 7038 62D6 Ilda r3,watm2 


5288 3038 FCO4 sta r3,%map2 
528C 70B8 62D4 Ilda r3,@watch2 


5290 800A qutpat badlit ;no see => fix pointers 
idledo: 
5292 7038 OOD2 Ilda r3,mapv2 


5296 3038 FCO4 sta r3,%map2 


prkrerr* Count the number of times through the idle loop 
4G every half second 


529A 7028 A2CE lda r2,idlectfoo 

529E 3028 6522 sta r2,idles 

52A2 6006 endroutine lites 

52A4 4818 62D8 badlit: Ida ri.=watchs ;reset light defaults 
52A8 3018 62D0 sta ri.,watchi 

52AC 4818 62EC Ida ri,=watch 

52B0 3018 62D4 sta ri,watch2 


52B4 SOEF br idledo 


833 
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52B6 
52B8 
S2BA 
S2BC 


S2BE 
52CoO 
52C4 
52C6 
52C8 


52cc 
52D0 
5202 
5204 
5208 
52DA 


52DC 
52DE 
52E2 
52E6 


52E8 
52EC 
52FO 
52F4 
52F8 
S2FA 
S2FE 
5300 
5304 
5308 
530C 
5310 
5314 
5316 
5318 
531C 
5320 
5322 
5324 


5328 
532A 
532C 
5330 
5334 
5338 
533A 
533E 
5340 


SEBA 
5EAG 
SE7E 
5E92 
0008 


1076 
7078 
8B04 
48F1 
3278 


7858 
A2D1 
4890 
702D 
9B02 
4891 


A6D1 
7848 
7028 
48F8 


503F 
304B 
305B 
302B 
9804 
301B 
SOF5 
4B28 
3028 
3028 
3058 
3048 
4811 
SAF 
7018 
4E18 
3104 
4A91 
3018 


9B 16 
48A5 
7018 
7518 
7518 
9A06 
3128 
4890 
3018 
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snow check to send trouble report immediately 
trbtab: dgsb ;diagnostic queue leader ;see bum below 
trpsb ; traps 
stsb ;status 
thrusb  ; throughput 
trbtl=.-trbtab 
routine trbtim 
lda r7,mgsb+snon ;get mess gen switch 
if minus ;must count up 
Ilda r7,f#1 
addm r7.mgysb+snon 7;Sso count it up 
endif 
ldab r5,nccimp ;where’s nec 
st :cS,4 
Ilda ri,=0 
Ilda r2,spfrut(r5) yroute to NCC? 
ifnot minus ;;spfded 
Ilda ri,=1 
endif 
sri r5,1 ;inccimp ;restore nccimp 
Idab r4,ncchst 
Ilda r2,ncecink 
Ilda r7,=trbtl 
repeat ° 
lda r3,trbtab(-r7) ;get leader buffer area 
sta r4,hst1l(r3) :destination host 
sta r5,dsti(r3) ;destination imp 
sta r2,mid1(r3) ;mess id (link) 
until loop 
sta ri,snon(r3) ;bums by not executiing on ‘last of loop 
endrepeat 
and r2,=messid ;regular pkt 
sta r2,thrusb+midl ;thrupt may be multi pkt 
sta r2,dgsb+midl ;diag always multi 
sta r5,tlsbtdstl :Set Plulog destination to NCC 
sta r4,tlisb+thstl ; (other inits in fakini) 
Ida ri,ri :did we turn things on? 
ifnot zero 


Ida ri,throtc 
cmp ri,= DSO 
ifnot equal 


add ri,=1 
sta ri,throtc 

endif 

ifnot minus sethrote rt ;ok to send 
lda r2,=5 ;throttle constant 


Ida r1,ophgo+foo 
eor ri,anom 
eor ri,banom 


ifnot zero ;something to send, trigger status 
subm r2,throtc 
Ilda ri,=0 
sta ri,stsbtstatf ; temporary set of freq to O 


endif 


5344 
5348 
534A 
534E 
5350 


5354 


7078 6166 
SAO06 
3128 SF82 
4890 
3018 SEB4 


6006 


if nilopstcilloc zany reg traps? 


subm r2,throtc 


Ilda ri.=0 
sta ri,trpsbtstatf 
endif 
endif 


endif 
endroutine trbotim 
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; time the message block stuff 


5356 4894 bto: lda ri,=4 ;fast rate = 640 ms 
5358 7878 650B Idab r7,mintim+i 

S535C 49F1 sub r7,=1 

535E 9902 bo .+4 

5360 4C92 ior r1,=2 z;middie rate - 1.28 sec 
5362 8BO04 bnm bti 

5364 4C91 ior r1,=1 ;slow rate - 58.6 sec 
5366 4878 OOSA lda r7.= DSO 

536A 3078 650A bt: sta r7,mintim 

536E 4858 0370 lda r5,=<tmnum-1i>*tmien 

5372 482D A930 bt2: Ilda r2,=tmlock(r5) 

5376 4078 5396 jsb r7,agetm 

537A 4958 0010 sub r5,=tmlen 

537E 8BFA bnm bt2 

5380 4858 0370 lda r5,=<rmnum-1>*rmien 

5384 482D A5BO bt3: lda r2,=rmlock(rs5) 

5388 4078 53C0O jsb r7,ageing 

538C 4958 0010 sub r5,=rmlen 

5390 8BFA bnm bt3 

5392 4008 iBEE jmp tossx 
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;subroutines to age message blocks 


5396 703A 0000 agetm: lock r3,O(r2) 7; tmlock 
539A SAFE ; 
539C 703A COOA lda r3,tstate-tmlock(r2) ;control bits 
53A0 4D38 COOO eor r3,=tminit+tmrset ;check if these on 
53A4 4B38 COOO and r3,=tminit+tmrset 
S3A8 8AOF bnz agetx ;nope, not both 
53AA 703A COO8 lda r3.tmmess-tmlock(r2) znow check age 
SSAE 4FBC tst r3.= HC*ageO ;over 3? 
53B0 9SAOB bz agetx ;nope, no touch 
53B2 4838 8000 bt04: lda r3,=sign ;bit to say idle : 
S3B6 343A COO2 jiorm r3,tmimp-tmlock(r2) ; into imp number 
5S3BA 703A OOOA lda r3,tstate-tmlock+foo(r2) 7smash tstate too 
53BE 9027 br btG ;done this block 
53CO 703A 0000 ageing: lock r3,0(r2) >;rmlock 
53C4 SAFE 
53C6 704A COO2 agetx: Ida r4,tmimp-tmlock(r2) ;;rmimp 
53CA 9B21 bm bt6 ‘ 
53CC 4E48 OO7F cmp r4,=nimp 
53D0 SCF1 bl bto4 :invalid IMP # 
53D2 A2C1 sll r4,14 
53D4 704C 72FC lda r4,spfrut(r4) sroute to this IMP 
53D8 8BO6 if minus ;ispfded ;IMP died - reset block 
53DA 4838 FFFO set r3 = =-1?age sallow time for cleanup 
53DE 333A COO8 andm r3,tmmess-tmlock(r2) 
53E2 90E8 tr bto4d 
endif 
53E4 784A COOF ldab r4,tmihn-tmliock(r2) :impmlhn ;local host 
53E8 7648 6322 cmp r4,hosts ‘ 
53EC 9203 bg btO1 
S3EE E658 Trap 3130,<;Bad local Host in message block - page 402> 
S3FO SOE1 br btod ’ 
53F2 704C 6326 btOl: lda r4,h2pblk(r4) sget its param blk 
S3F6 SBO4 bm btO2 ;hardware gone 
S3F8 784C OO1F ldab r4.,hihd(r4) ;host state? 
53FC SA08 bz bts ;:hostup ;he’s okay 
S3FE 703A COO8 btO2: lda r3, tmmess~tmlock(r2) iimmmess ;set age = max 
5402 4FBC tst r3,=aged* HC :if not too young 
5404 9A04 bz btG 
5406 4CBF ior r3,=age 


5408 303A COO8 sta r3, tmmess-tmlock(r2) yi rmmess 


837 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 405 


FAKREL.PLR; 1 PAGE 26 IMP Fakes Reliability 
540C 703A COO8 bté6: lda r3,tmmess-tmliock(r2) 
5410 4BBF and r3,=age 
5412 7F1iB 5430 tstb ri,tictim(r3) 
5416 SA04 bz bt4 
5418 48B1 Ilda r3,=1 
541A 323A COO8 addm r3,tmmess-tmlock(r2) 
541E 3002 bt4: unlock (r2) 
5420 4F58 OO7E tst r5.= H8*tmlen-words 
5424 8A05 if zero 
5426 1076 save r7 
5428 4078 1C34 call tsleep 
542C 6076 restore r7 
endif 
S42E 4007 jmp (r7) 
5430 04 tictim: .byte 4,4,4,4,2,2,2,2 
5431 04 
5432 04 
5433 04 
5434 02 
5435 02 
5436 02 
5437 02 
5438 02 -byte 2,2,2,2,1,1,1,0 
5439 02 
543A o2 
543B 02 
543C O1 
543D 01 
543E 01 


543F jeje) 
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;time out tmess for incompletes 
73 tm mes blks every slow tick 


5440 1076 routine messto 

5442 7058 A4AA Ilda r5,messt ;clears in case of trouble} 
5446 4078 5458 call messts 

544A 4078 5458 call messts 


544E 4078 5458 call messts 
5452 3058 A4AA sta r5,messt 
5456 6006 endroutine 
5458 1076 routine messts 
545A 707D 6932 Ida r7,tmimp(r5s) ;message block. 
545E 9B12 ifnot minus snon-idle block. 
5460 707D AS30 lock tmlock(rs) ;lock for duration of test. 
5464 SAFE 
5466 787D 693B ldab r7,tstate+1(r5) 
546A 4D78 OOFF eor r7,= HFF 
546E 9A08 ifnot zero ;outstandinag messages. 
5470 787D 693A ldab r7,tstate(rs) 
5474 4FF3 tst r7,=msto_- H8 
5476 9A04 ifnot zero ymess blk not yet timed out. 
5478 49F1 sub r7,=mstoO_- H8 : 
547A 387D 693A stab r7,tstate(r5) 

endif 

endif 
547E 300D A930 unlock tmliock(r5) 
endif 
5482 4958 0010 sub r5,=tmlen 
5486 8BO3 if minus 
5488 4858 0370 Ida r5.,=<tmnum-1>*tmien 
endif 

548C 6006 endrout ine 
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7*** test the ih software structures 


;table of valid ih dispatches 


548E 1076 routine rihs 

5490 4818 0038 Ida r1,=th*words show many hosts 
repeat 

5494 5049 6326 Ida r4,h2pb1k(-r1) 

5498 9B14 ifnot minus :some host here. 

549A 7O7C 404E lock ihloc(r4) 

549E SAFE 


.comnt | This must go in warm or ih must go in local 
Ilda r6,ihlo(r4) ;ih dispatch 


lda r2,=ihdb ;probable called routine 
jsb r7,return 
be rihs10O ;sure ‘nuff 
Ilda r2,=ihdba :possible alternate 
jsb r7,return 
be rihsi0O sah, yes . 
Trap 3030,<;ihlo is a mess - page 405> i 
br rihst1 ;reinit his ih 
rihsi10: 
54A0 702C 0056 Ida r2, ihwq(r4) 
54A4 4E2C 0060 if r2 <> =shq(r4) & r2 <> =shpqi(r4) 
54A8 S10A 
54AA 4E2C 0064 
S4AE 9107 
54BO E619 Trap 3031.<;ihwq is a mess - page 405> 
.erinet4:s 
54B2 7OSC 0020 Ida r5,iobloc(r4) 
S4B6 4078 S9FC call ihsini sreinitialize IH side. 
S4BA 3003 else 
54BC 300C 404E unlock ihloc(r4) 
endif 
.comnt | ;must be on warm page, or HI in local. 
Ida r7,lockhi(r4) 
bz .-4 
Ida r6,htemp7(r4) 
jsb r7,retx 
lda r6,hilo(r4) 
jsb r7,retx ;fix this next time 
sta rO,lockhi(r4) 
endif 
54CO 4E90 until ri = =O 
54C2 81E9 


endrepeat 
54cC4 6006 endroutine rihs 
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pert Check the fake host stuff t**** 


FCOO O600 Page FakCode 
54C6 1076 routine rfake 
54C8 4898 Ilda ri,=nfh2 
repeat 
54CA 5059 636E Ida r5,v2pbik(-r1) 
54CE 9903 ifnot odd 
54D0 4078 4DC2 call bldfh 
endif 
54D4 4078 1C34 call tsleep 
54D8 4ES0 until ri = =O 
S4DA 81F8 
endrepeat 
54DC GOOG endroutine rfake 
.comnt | Ida r3,=nfh2 
rfake1: Ida ri,v2pb1k(-r3) ;this fake okay 
bo rfake7 ;not configured yet 
jsb r7,bldfh 
lda r2,lockfd(r1) ;lock just in case 
bz .-4 
lda r6,dozet(r1) 
cmp r6,=fthgo 
be rfake3 :just initialized 
lda r2,=doze 
jsb r7,retchk 
be rfake3 ;okay dispatch 
Ilda r2,=jam ymaybe jam was called 
jsb r7,retchk 
be rfake3 
Ilda r2,=jamend 
jsb r7,retchk 
be rfake3 
Ilda r2,=jamhol ;another call 
jsb r7,retchk 
bne rfake5S ;bad dispatch 
rfake3: unlock lockfd(r1) 


lock r6,lockfw(r1) 
Ilda r6,waitt(ri) 
Ida r2,=wait 

jsb r7,retchk 


be rfaked ;okay dispatch 

Ilda r2,=suck ;maybe this caller 

jsb r7,retchk 

be rfake4 ;good caller 

sub r6,=2 :suck sometimes bumps return} 


jsb r7,retchk 
bne rfake5S ;bad dispatch 


PAGE 408 
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rfake4: cmp r6,=sucwt+4 ;wait from a suck? 
bne rfake6 ;no, so ignore waitt3 
Ilda r6,waitt3(ri) 
Ida r2,=suck ;called routine 
jsb r7,retchk 
be rfake6 ;okay dispatch 
rfake5: Trap 3052,<;scrambled fake io block - page 407> , 
Ilda r7,=-1 
sta r7,v2pb1k(r3) ;remove from v2pb1k 
rfakeG: sta rO,lockfw(r1) ;uNnlock now ; 
rfake7: sta r3,rfakt3 ;Save to sleep 
jsb r7,tsleep 
lda r3,rfakt3 ;now, where were we 
bnz rfakei ;do all the fake hosts 


|;continues from above 


.comnt | *** also allow rest here t** 

lda r6,fhtri+i4 

lda r2,=fhtp 

jsb r7,retchk 

lda r6,ftha7 

lda r2,=t2fg 

jsb r7,retchk 

lda r6,fhda7 

Ilda r2,=f2dp 

jsb r7,retchk 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 410 
FAKREL.PLR; 1 PAGE 31 IMP Fakes Reliability 


7*** rte pid dispatches 


5S4DE 1076 routine conclk 
54EO 7078 OOBO Ilda r7,maprel 
54E4 3078 FCO4 sta r7,%map2 ;get to stage vars 
54E8 7048 SD5A Ilda r4,m2#usebus ;what buses and RTC’s 
54EC 7078 OOD2 Ilda r7,mapv2 
54FO 3078 FCO4 sta r7,%map2 
54F4 48D0 lda r5,=0 :no PTIP so far 
S4F6 3058 5E10 STA R5,temwrd 
S4FA 4894 lda ri,=bsadil 
repeat 
54FC 5749 OECG6 if r4 .bit. bittab+ H10(-r1) 
5500 9A25 
5502 7029 0320 ida r2,bsadrs(r1) :what bus then 
5506 703A 0008 jda r3,rtcpds(r2) :get pid this clock is hung on 
550A 4873 tda r7,r3 
550C 4878 OOFF and r7,= HFF iFirst the fast clock 
5510 SAOD ifnot zero 
5512 4EDO if rS: = =O 7no Quick timeout guy yet. 
5514 8104 
5516 7058 40CC lda r5,qtoadr ;Quick timeout routine 
551A 3006 else : 
551C 765F 80CO if r5 <> base(r7) ;no clock there yet.: 
5520 9103 
;problems if > 2 clocks 
5522 4858 113C Ida r5,=loop3 snull dispatch 
endif 
endif 
5526 305F 80CO sta r5,base(r7) ;fix up base dispatch 
endif 
552A AGB8 srl r3, D8 
552C 4878 4262 Ilda r7,=tohot 
5530 307B 80CO sta r7,base(r3) 
5534 7O7A OOOA Ida r7,rtcsws(r2) 
5538 3078 62E2 sta r7,mine snow, got an IMP number? 
553C 9A04 if zero >} r7 > =nimp ;IMP number invalid 
553E 4£78 OO7F 
5542 8C04 
Trap 413,<:IMP num invid (CK RTC SWTCHS) (H) - page 408> 
5544 E108 
5546 4048 1308 jsb r4,reload ya drastic solution to the problem 
endif t 
endif 
554A 1046 SAVE R4-R5 ;CREATE COME TEMPS 
554C 1056 
554E 483A OOOF LDA R3,#RTCTEM+3(R2) > TEMP BYTE ADDRESS. 
5552 4851 LDA R5,R1 ;TEMP REF TABLE INNDEX 
5554 A2D1 SLL R5.1 ;SHIFTLEFT 1 BIT 
5556 4AD3 ADD RS,=3 ;TEMP REF TABLE INNDEX 
REPEAT ;FOR ALL SENSORS, THIS RTC 
5558 787D 4008 LDAB R7,TEMREF(R5) ;GET REFERENCE VALUE 
555C 7043 LDA R4,(R3) ;READ 2 TEMPERATURES 
555E 4833 LDA R3,R3 


fern nana Te EVEN -~TE CHECKING IFFT HALF 


843 


5564 
5568 
556C 
SS6E 
5572 
5574 
5576 
5578 
SS7A 
557C 
SS7E 
5582 


4B48 
4E28 
9104 
4E28 
8109 
4E47 
8CO7 
E10D 
1076 
48F 4 
3278 
6076 


OOF F 
E000 


FOOO 


5E10 


ENDIF 


AND R4,4 HFF :JUST 8 BITS 
IF R2 = = HEOOO } R2 = = HFOOO 
IF R4 > R7 ; TEMPERATURE TOG HIGH 


Trap 415,<;Node ovrhting--R2=BUS 
SAVE R7 

LDA R7,=1 

ADDM R7, temwrd 

RESTORE R7 


R4=TEMP (H) - page 408> 
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5584 
5586 
5588 
558C 


558E 
5590 
5592 
5594 


5596 
5598 
559C 
SS5S9E 
55A2 
55A6 
55A8 
55AC 
55B0 


55B2 


49D1 
49B1 
4E3A 
82E6 


6056 
6046 
4E90 
81B4 


48BO 
7638 
8206 
4838 
3438 
9005 
4838 
3338 
8000 


6006 


OOO0C 


5E10 


0020 
62AE 


FFDF 
G2AE 
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ENDIF 
ENDIF 
SUB R5,=1 
SUB R3,=1 


UNTIL R3 < ARTCTEM(R2) 


ENDREPEAT 
RESTORE R4-RS 


until ri = =O 
endrepeat 


LDA R3,=0 

CMP R3, temwrd 

BLE CONC1 
LDA R3.=HTSBIT 
IORM R3,ANOM 


BR CONC2 

CONC1: LDA R3,=<-1>?HTSBIT 
ANDM R3.ANOM 

CONC2: NOP 


endroutine conclk 


;NEXT REFERENCE VALUE 
:NEXT TEMP READING 
;DONE THIS RTC 


;GET BACK SAVED REGS. 


;THE IMP IS JUST FINE 
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;buffer variables initialization 

;ON mapv2 page are point, chain, chan, where, and flushd tables 
: fill the remaining space with buffers, 

; starting from the top of each "hole" 


55B4 1076 routine bufini, uses ri-r4 
55B6 4890 lda ri,=0 show many buffers so far 
55B8 4848 FFF4 lda r4,=bufmap-bfmpnd ;for all extant buf pages. 
repeat ;setup page. 
55BC 602C 5646 Ida r2,bfmpnd(r4)+ :get ptr to full buf page 
55CO 9905 ifnot odd jpage enabled 
55C2 7022 lda r2,(r2) iget buf page pointer. 
55Cc4 9903 ifnot odd ;page exists 
55C6 4078 5622 call dobufs :;setup bufs 
endif 
endif 
55CA 4844 lda r4,r4 
55CC 8AF8 until zero ;no more pages in table. 
endrepeat 
55CE 4838 12CO Ilda r3,=O/<point+mnbuf2> ; last word in point 
repeat ;put buffers midst tables. 
55D2 4938 OOAO sub r3,=buflen ;room for a buffer? 
5506 4E39 OF7A until r3 <= =O/<point+<5S*words>>(ri1) 7no room left. 
55DA 8C18 
55DC 4823 Ida r2,r3 iyes - build its address in r2 
S5DE AGA4 srl r2,4 ;packed address. 
SSEO 7428 OOD2 ior r2,mapv2 
55E4 2029 8F70 sta r2,point(r1)+ 
55E8 4A28 0035 add r2,=mnbuf2/ H1iO ;offset to next table 
SSEC 2029 8F70 sta r2,point(ri)+ 
5S5SFO 4A28 0035 add r2,=mnbuf2/ H10 ;..and to next 
55F4 2029 8F70 sta r2,point(r1)+ 
55F8 4A28 0035 add r2,=mnbuf2/ H10 ;... 
55FC 2029 8F70 sta r2,point(r1)+ 
5600 4A28 0035 add r2,=mnbuf2/ H1O ;.. and to the last 
5604 2029 8F70 sta r2,point(ri1)+ 
5608 SOE5 endrepeat 
560A 4992 sub r1,=2 ;reserve last buffer for junk 
560C 3018 63CC sta ri,maxbuf ;length of table 
5610 4829 92CO Ilda r2,=chain(r1) ;address of last buffer. 
5614 3028 63CA sta r2,junk ;used as junk buffer. 
5618 A691 srl ori, sand buffer count 
S61A 4A91 add r1,=1 ;..o0ffset ‘cause nf is a lock 


561C 3018 63CE sta ri,maxnf 
5620 6006 endroutine buf ini 
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5622 
5624 


5628 
562C 
5G2E 
5632 


5634 


1076 
483A O1F6 


2039 8F70 
49BA 
4E3A OOOC 
82FB 


6006 


PAGE 33 IMP Fakes Reliability 
;set up an all-buffers page. start from very top. 


routine dobufs, arg r2, uses rl, uses ro 


Ida r3,=< H2000-buflen>/ H10(r2) imake the point word 
repeat ;put buffer in table. 
sta r3,point(ri)+ :into the table 
sub r3,=buflen/ H10 ;back up one 
until r3 < =<O/pagebc>/ H10(1r2) ;past beginning. 


endrepeat 
endroutine dobufs 
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;*¥eee INitialization***** 
;table of maps that cannot move 
;mMapv2 must be first for goi loop to leave right map setup 


;tables of maps to check and set up for buffers. 
;set entry odd if not to be used (for bufmap) 


5636 OOD2 mapct: mapv2.mapvar 
5638 OODO 
563A OOEO bufmap: mapb1,mapb2,mapb3,mapb4 ,mapb5 , mapb6G 
563C OOE2 
563E OOE4 
5640 OOE6 od 
5642 OOE8 
5644 OOEA 

0010 Imapct=.-mapct 

bfmpnd: 
0000 .iif nz vmapl-Imapct, .error vmap/bufmap mismatch 


;tables to drive IMP initialization 


iFirst: initialize large contiguous blocks: 
; format: <base, length, init> 
;processed in order (unlike the rest) 


itabs: 

5646 G20A sidflg,m2-sidflg.O ;zero vars 
5648 1DF6 
564A 0000 
564C 8910 trnbilk,m3-trnbik,O ;zero buf vars 
S64E 16FO 
5650 0000 
5652 80CO base, lbase,bad ;empty base table 
5654 0100 
5656 1064 
5658 6326 h2pbik.husend-h2pbik,-1 ;:v2pblk m2pbik ;config tables 
565A 0080 
565C FFFF 
565E SEOO fakvst.mi-fakvst,O ;finally, zero fake vars. 
5660 0200 
5662 0000 

OO1E itabsl=.-itabs 
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5664 
5666 


5668 
566A 
566C 
566E 
5670 
5672 
5674 
5676 
5678 
567A 
567C 
S67E 
5680 
5682 
5684 
5686 
5688 
568A 
568C 
568E 
5690 
5692 
5694 
5696 
5698 
S69A 
569C 
569E 
56A0 
56A2 
56A4 
56A6 
56A8 
S6AA 
56AC 
SGAE 
56BO 
56B2 
56B4 
56B6 
56B8 
S6BA 
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snow, individual words: <loc,value> 


itabc: watch1,watchs ; lites 
lif 2 PSE 
watch2,watch ;combined display 
. lif mz PSE 
watch2,watchh 716 host dawn helow 
cycle, HS001 ; timeout counters 
stolok,2 
tcgo,2 shost timeouts 
tbkgo,.2 
tcgoa,2 
tbkgoa,2 
hosts ,nfh2 
myimp, DOGO ;coming up counter 


nsstack-words,nicestop ;nice-stop dispatch 
nsspsv,nsstack-<2"*words> :nice-stop stack pointer. 
ccled+net!] ,hicode :fake hosts 
ccled+thst!,getpri+ HFD ;tty dest = DDT fake 
ringf,ring yrestarter pointer 
thrusb+netl,hicode ;more fakes 
stsb+netl,hicode 

trpsb+net! ,hicode 

mgsb+net!] .hicode 

dgsb+net!.hicode 

hwsb+net! ,hicode 


tisb+netl,hicode 
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S6BC 
56BE 
56CO 
56C2 
56C4 
56C6 
56C8 
56CA 
56CC 
S6CE 
56D0 
56D2 
56D4 
56D6 


SEAO 
0800 
S5SE8C 
0800 
SEB4 
0800 
SEC8 
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thrushb+statf, H800 


stsbt+statf, 


trpsbtstatf, 


dgsb+statf, 
hwsb+statf, 
tisbtstatf, 
mgsb+t+hstl, 
hwsbthstl, 
tisb+midl. 
mgsb+statf, 
mgnl, H8 


tittcp 


-byte mynet.ncc_-6 
tittcp+2,ncec&desti 
tittcpt+4,mynet_ H8+ HFF 


tittcp+ HOA, 015 _4 


0,0 
0,0 
0.0 
0,0 
0,0 
0,0 


itabcl=.-itabc 


H800 

H800 

H1 

H800 

tlogfreq 

HFF ;msg gen to discard 
HFF 

0233_ H8 


1 


;dest net, ,host 


;dest IMP 


;dest format 


;Spares 


:source net and host 
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snow table to copy some things <loc,ptr(value)> 


5710 7286 itabi: ccled+dst!l.mine ;fake hosts 
5712 62E2 
5714 SE70O mgsb+dst1l,mine 
5716 62E2 
5718 SED4 hwsb+dstI.,mine ;my own discard 
571A 62E2 
571C SEFC tittcp+6,.mine 7:TCP source 
S71E 62E2 
5720 6524 dynxt,.dyinit 
5722 40D6 
5724 O00CO 0,0 ; spare 
5726 0000 
5728 0000 0.0 
572A 0000 
572C 0000 0,0 . 
572E 0000 
0020 itabil=.-itabi 


snow table of locks to unlock (set to 1) 


5730 B2A4 itabl: dsplok ;:display 
5732 ASSO conlok ;configuration lock 

0001 .if nz VHA 
5734 BSFC vhalok ;vha parameters 

.endc 

5736 A2EA clklok ;clock reliability lock 
5738 A3C8 nf ;free buffer count 
573A A3C4 free :free list head 
573C A3C6 freend ; and tail 
573E A3SB6 ltq ; task queue lock 
5740 A4A4 lockro ;routing out buffers lock 
5742 B2Cc8 rutlok ;routing process lock 
5744 B2c6 spfrtl  ;lock on SPF common table 
5746 A4A8 trniok ;free transaction block lock 
5748 A4B2 ringlk ;restarter lock 
574A A25E d2fl :DDT and TTY locks 
574C A260 F2d1 
574E A264 ddt lok 
5750 A262 ttylok : 
5752 A2AC ttyobf+rbf lok 
5754 A294 ttyibf+rbf lok 
5756 626A dspflag 
5758 SEDA hwsb+snon 
575A SEEE tisb+snon 

002C itab11l=.-itabl 


snow a table of queues to set up (word following points to 
; head, head is set to 1) . 


575C 63B8 itabq: stq ; task queue 

575E 63BC srq ;task retry queue 

5760 63CO sckq ;checksum queue 

5762 6568 sfhcq rcore fake host queue ‘ ° 


5764 72AE srupq :SPF update queue 


. 
. + 


, ee o ¥ 
. 
. 
. 


3 
> 
~ 
- 
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;VMAPCH - check that none of the variables or buffer pages moved, 
; Or was re-created (INTIME OQ). 


5766 1076 routine vmapch, uses mi 
5768 4818 0010 Ida r1,=Imapct 
repeat 

576C 5079 5636 Ilda r7,mapct(-r1) ;check to see if maps changed 
5770 SSOF ifnot odd :some entries not to be used 
5772: 7077 Ilda r7,(r7) :this is map setting 
5774 7679 6556 if r7 <> vmap(ri1) 
5778 9104 
577A 6O76 fail return :page moved} 
577C 4FFO 
577E 4007 

endif 
5780 9907 ifnot odd ;there is a page 
5782 3078 FCO4 sta r7,%map2 :get to this page 
5786 7078 80B4 Ida r7,m2/intime ;its intime 
578A 8A02 if zero 
578C SOF7 fail return :init time run out or new page 

endif : 
endif 
endif 
578E 88EF until loop 
endrepeat 


5790 6006 endroutine vmapch 
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5792 


5794 
5798 
579A 
579E 
57A0 
S7A4 
57A8 


57AC 
S7AE 
57B2 
S7B4 
57B8 
57BC 
57CO 


57C2 
57C4 
57C6 


1076 


7048 
9A18 
4078 
9A15 
7078 
3078 
7078 


890B 
4F78 
9A08 
3578 
7018 
7028 
E102 


6076 
0281 
4007 


40B4 
5766 
OOBO 
FCO4 
SEBO 
0100 
SEBO 


SED4 
SED6 
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: Stage calls here for init check 


routine fakini, uses ri-r5, uses mi-m3 


Ida r4,intime 
ifnot zero 
call vmapch 
if success 
Ida r7,maprel 
sta r7,.%’map2 
Ida r7,m2#pkcst 
if odd & r7 .bit. =pkcext 


eorm r7,m24#pkcst 

lda ri,m2#pkctyp 

jlda r2,m2#pkcadd 

Trap 402,<;Changing buf 
endif 
return equal 


endif 
endif 


; timeout running? 

;yes 

;see if pages new or moved 
7all okay 

;get to rel page 


;ipkcact ;still trying to reload} 


;clear bits to stop pkc 


pg alloc - page 417> 


;all is well 


;vars page moved 
; timeout stopped 
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57C8 
57CA 
57CC 
57CE 
57D0 
57D2 
57D6 
57DA 
57DE 


S7E2 


S7ES 
S7EA 
S7EE 


S7F2 
S7F4 
S7F6 


5S7F8 
S7FA 


S7FC 


5800 
5804 
5808 


580A 
S80E 


5810 
5814 


8000 
6076 
4FFO 
4077 
1076 
7028 
3028 
7028 
3028 


4818 


6029 
6039 
6049 


2042 
49B2 
BAFE 


4E90 
81F6 


4818 


5029 
10A9 
88FC 


4818 
48A1 


10A9 
88FE 


OODO 
FCOG 
ooD2 
FCO4 


FFE2 
5664 


5664 
5664 


OOAC 


5664 
5664 


002C 


5730 
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;We want to reinitialize 


notrap 
fail coreturn 


jda r2,mapvar 
sta r2,%map3 
Ilda r2,mapv2 
sta r2,%map2 


25-Jun-87 10:57:29 
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;F-illop for diagnosis 
;hneed consensus 


;stage doesn’t do this 


snow start table-driven init 


Ida ri,=-itabsl 


:first table done in order 


repeat 

lda r2,itabstitabs1!(r1)+ :loc 

lda r3,itabstitabsl(r1)+ length 

lda r4,itabstitabs1](ri)+ ;value 

repeat 
sta r4,(r2)+ ;do a word 
sub r3,=2 ;count 2 bytes 
until zero 

endrepeat 


until ri = =O 
endrepeat 
;now constants 


jda r1,=itabcl 
repeat 
Ida r2.itabe(-r1) 
sta r2,@itabc(-r1) 
until loop 
endrepeat 


;now locks 


Ida ri,=itabl] 
Ida r2,=1 
repeat 
sta r2,@itabl(-r1) 
until loop 
endrepeat 


;value 
;into loc 


:ptr( lock) 


855 


Pluribus IMP 1301 


FAKREL.PLR; 1 


5816 


5818 
581C 
5820 
5822 


5824 


5828 


582C 
5830 


5832 
5836 
583A 
583E 
5842 


5844 
5848 


584C 
5850 
5854 
5858 
585C 
5860 


489A 


5039 
303B 
3023 
88FB 


4078 


4078 


4838 
48F 4 


300B 
387B 
4A38 
4E38 
92F8 


4818 
4838 


3039 
3039 
3003 
3009 
4918 
8BF6 


575C 
0002 


SAA 


54DE 


6CBO 


4000 
0003 
0010 
6E30 


0370 
FFFF 


65B2 
6932 
ASBO 
A930 
0010 
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;Now queues 


lda ri 
repeat 
Ida 
sta 
sta 
unti 


»=itabq!l 


r3,itabq(-r1) 
r3,2(r3) 

r2, (ra) 

1 loop 


endrepeat 


7*** dis 


patch tables 


call baseto 


7*** imp number 


call conclk 


;*** reassembly blocks 


Ida r3 

Ilda r7 

repeat 
sta 


stab r7,reasst(r3) 


add 
unti 


»=messtk 
774 


rO,reaslk(r3) 


r3,=Irblk 


1 r3 >= =emsstk 


endrepeat 


7r2=1 already 


pptr (queue) 
7set endpointer 
sand begin 


:get clock(incl imp #) 


;*** message table and allocate stuff 


Ilda ri,=tmbIlks-rmblks-rmlen 7itmien 


lda r3 
repeat 
sta 
sta 
sta 
sta 
sub 
unti 


= 


r3,rmimp(ri) 
r3,tmimp(r1) 
ro,rmlock(ri) 
ro, tmiock(r1) 
ri,=rmien 

1 minus 


endrepeat 


>; tmlen 
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Re free list 


5862 4078 55B4 call bufini sinitialize the point words 

5866 7048 63CC Ilda r4,maxbuf ;how many buffers * 2 
repeat 

586A 49C2 sub r4,=2 

586C SBOG until minus 

586E 482C 92CO Ida r2,=chain(r4) 

5872 4078 5106 call flpool :flush and count nf 

5876 SOFA endrepeat 


:*** back hosts "** 


5878 48D8 Ida r5,=b2pend-b2pbik 
repeat 
587A 504D 5984 Ilda r4, ibt3(-r5) ;next back 
587E 4078 598C call breini ;init him 
5882 4EDO until r5 = =O 
5884 81FB 
endrepeat 
5886 7028 OOBO lda r2,maprel ;get to rely 
588A 3028 FCO2 sta r2,%mapi 
588E 4818 FFFF Ilda ri,=-1 
5892 3018 7EBG sta ri,mi#pkcrct ;force pkt core params clear 


5896 7028 OODO lda r2,mapvar 
589A 3028 FCO2 sta r2,%map1 


initialize statistics fake host 


58SE 4838 0020 Ilda r3,=2*words* D8 


repeat 
58A2 501B 5954 Ilda ri,gostt(-r3) 
58A6 9BO3 ifnot minus 
58A8 7518 62E2 eor ri,mine 

endif 

58AC 381B 5E49 stab ri,statdt+1(r3) 
58BO S501B 5954 Ilda ri.gostt(-r3) 
58B4 301B 5E48 sta ri,statdt(r3) 
58B8 88F5 until loop 

endrepeat 


58BA 4078 5928 call gostat :statistics constants 
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;do the tabled copying 
S8BE 4818 0020 Ida r1,=itabil 


repeat 
58C2 5089 5710 lda r3,@itabi(-r1) ;ptr(value) 
58C6 1089 5710 sta r3,@itabi(-r1) 
58CA 88FC until loop 

endrepeat 


:finally, remember what pages we initialized 


S8CC 4818 0010 Ida r1,=Imapct 


repeat 
58D0 5029 5636 Ida r2,mapct(-r1) :get pointer to local map entry 
5804 9909 ifnot odd :good entry in mapct 
5806 7022 Ilda r2,(r2) :get map from local 
58D8 3029 6556 sta r2,vmap(r1) ;into vars page 
58DC 3905 ifnot odd ;got a page here 
58DE 3028 FCO4 sta r2,%map2 ;to this page 
58E2 3008 80B4 sta rO,m2/intime zmark it initialized 
endif 
endif 
S8EG 88F5 until loop 
endrepeat 


;chek for reload/restart 


S8E8 48A1 Ilda r2,=rstmrk ;we’ve restarted for sure 
58EA 7018 5926 lda ri,oldimp 
58EE 7118 62E2 sub ri,mine ;did our core come from us? 
58F2 SAOF ifnot zero ;somebody else’s bod} 
58F4 3218 40B6 addm ri,cksum ;fix our cksum 
S8F8 3118 5926 subm r1,oldimp ;make this our core 
S8FC 48A2 Ida r2,=ridmrk ;tell mee its a reload 
5S8FE 7038 OOC6 Ilda r3,mapfak+%ncodep ;get spare fake 
5902 9907 ifnot odd ;we’ve got a spare 
5904 3038 FCO4 sta r3,%map2 7now fix cksum etc on spare 
5908 3218 80B6 addm ri,m24cksum 
590C 3118 9926 subm ri,m2/oldimp :mark spare core as ours too. 
endif 

endif 

5910 3028 6320 sta r2,rstrid ; leave info around for stats 


;call OPSYS init routine 
5914 4818 12B0 lda ri,=itable 

patinit: ;so it can be patched (TIP) 
5918 4078 11FE call doinit 
591C E100 Trap 400,<;IMP reinit (H) - page 421> 


591E 4893 Ida r1,=3 ;stop future inits 
5920 3018 40B4 sta ri,intime 


5924 6006 endroutine fakini :ireturns loop) ;:done init. 


5926 oldimp: .blkw 1 ; imp from which we got c core 
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5928 1076 
592A 4818 


592E 5059 
5932 S90F 
5934 48BO 
5836 702D 
593A AGA 
593C 9A08 
SS3E 7048 
5942 A7C6 


5944 A1C1 
5946 A1B1 
5948 AGA 
S94A 8AFD 
594C 303D 


5950 88EF 


5952 6006 


0012 
4918 


OOOE 


62E2 


0012 
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;GOSTAT 


;calculate and store constants 
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PAGE 424 


:offset send time for STATS processes using IMP # mod 64 


routine gostat, uses ri-rs 


Ilda ri,=statot 
repeat 
lda r5,stbp(-r1) 
ifnot odd 
Ida r3,=0 
Ida r2,statf(rs) 
Spt) R204 
ifnot zero 
lda r4,mine 
rei or4,6 
repeat 
ria r4,1 
ria er3.t 
er] ir2,4 
until zero 
endrepeat 
endif 
sta r3, impoff(rs) 
endif 
until loop 
endrepeat 


endroutine gostat 


;master STATs list 
;got a STAT here 


ifreq this STAT 
;less than flat out? 


7 IMP number 
; IMP # mod G4 to high end 


7a bit of IMP number 
smultiply impno by interval 


;done multiply 


«store at IMPOFF 
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5954 OOFF gostt: HFF,O 
5956 0000 
5958 OOFF HFF., 1 
595A 0001 
595C 80FF getpri+ HFF,1 
595E 0001 
5960 80FF getpri+ HFF,O 
5962 0000 
5964 OOFF HFF ,signt+7 
5966 8007 
5968 0003 3,1 
596A 0001 
596C 0000 0,0 
S596E O000 
5970 OOFF HFF., 1 
5972 0001 
5974 002C ibtt1: bkOpid 
5976 0026 bk ipid 
5978 0028 bk2pid 
597A OO2A bk3pid 
597C 39F4 ibt2: back5 
597E 5072 back7 
5980 523E back3 
5982 4FD2 back6 
5984 7038 ibt3: bbkO, bbk 1, bbk2,bbk3 ;ib2pbIlk ;must match b2pb1k 
5986 7058 
5988 7078 
598A 7098 
; (re) initialize a back host. also called from rely code 
598C 1076 routine breini, uses r3, arg rd4-r5 
598E 703D 597C lda r3,ibt2(r5) 
5992 303C 0004 sta r3,hilo(r4) 
5996 9002 entry bcomt, uses r3, 
5998 1076 
599A 703D 5974 lda r3,ibti(rs) 
599E 383C OOOF stab r3,hinpid(r4) 
59A2 304B 81CO sta r4,mbiks(r3) 
59A6 4878 398E lda r7,=back 
S9AA 307B 80CO sta r7,base(r3) 
S9AE 4838 8000 Ida r3,=forbak :fake and back flag 
59B2 303C 0002 sta r3,hostyp(r4) :for special hi handling 
59B6 300C 4000 unlock lockhi(rd) 
SSBA 6006 endroutine breini 
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SSBC 0022 basepo: ttopid ;22 
S9BE 0002 basep: stkpid ;2 
538CO 0004 bltpid ;4 
59C2 0012 ddtpid ;12 
59C4 OO2E conpid ;2E 
59C6 0040 task 740 
598C8 0044 rutpi :44 - last pid poked by slow to 
538CA 0006 basep2: dsppid ;6 
5SCC 0010 bktpid ;10 
SSCE 0014 ttypid ;14 
59D0 0016 ihtpid ;16 
59D2 0042 stopid ;42 
59D4 OOFC nopid sFC 
59D6 0000 10) 70 
59D8 SCDO basec: rstgo 

SSDA 1794 bitcal 

S9DC iGiA jjddt 

SS9DE 1B80 con 

S59EO 2436 tsk 

59E2 23EE rutwak 

SSE4 162A jdsply 

SSEG6 3BD4 btc 

5SE8 1622 jjtty 

SSEA 3BBC ihtc 

SSEC 1C72 sto 

SSEE 1068 nopids 

SSFO 1142 emty 
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;test trace 


.comnt | 
routine trach 
lda r7,trceptr 
if r7 < =trebuf } r7 > =trebuf+trclen 
Trap 3340,<;trace ptr screwed up - page 425> 
lock trclok 
call gotrac 
endif 
endroutine trach 


routine gotrac 
Ida r7,=trcbuf 
sta r7,treptr 
unlock trclok 

endroutine gotrac 


;check the back ground guys 


S9F2 1076 routine bktst. uses ri, uses r3-r5 

59F4 48D8 Ilda r$,=b2pend-b2pbik ;r5 will point into b2pblk 
repeat 

59F6 504D 5984 Ilda r4,ibt3(-r5) 

59FA 707C 4000 lock lockhi(r4) 

SOFE SAFE . 

5A0O 4078 5998 call becomt ;common fixes 

5A04 4EDO until r5 = =O 

SAOG 81F8 
endrepeat 


5A08 6006 endroutine bktst 
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SAOA 
5A0C 
SAOE 


5A12 
SA16 


5A18 
SAA 
SAIC 
5A20 
5A24 
5A28 
5A2C 


SA2E 
5A32 


5A36 


1076 
489E 
5039 


30B8 
88FC 


93002 
1076 
4818 
5039 
7049 
303C 
88FA 


7038 
3038 


6006 


S9BC 
OOAC 


OO1A 


59D8 
59BE 
80CO 


40CE 
80E2 
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;maintain fixed pids in base 
routine basetp., uses ri, uses r3-r4 


Ilda ri,=basep2-basepo ;poke some pids 
repeat 

lda r3,basepo(-ri) 

sta r3,@pid 

until loop 
endrepeat 


entry baseto, uses ri, uses r3-r4 


Ida ri,=basec-basep ;pids to set up 
repeat 

lda r3,basec(-r1) 

Ida r4,basep(r1) 

sta r3,base(r4) 

until loop 
endrepeat 
Ilda r3,ttoadr ;copy from local param 
sta r3,base+ttopid 


endroutine basetp 


PAGE 428 
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.comnt | ' 


nice stop code | 


0008 toS5sec= D8& ;8 slow ticks are about 5 seconds. 
0018 toi5sec= D24 724 are thus 15 seconds 
.comnt | 


nice stop variables | 


Page FakVars 


SF8C igdown: .blkw 1 ;if set, send imp going down 
SF8E igdflag:.blkw 1 :if set, send imp going down with code=igdown 
SFSO stack ns,<2> ;nice-stop stack 
5SF94 
5SF94 
SF94 nsspsv: .blkw 1 :stack pointer. 
FCOO O600 Page FakCode 

nicestop: 

repeat iwhile IMPSYS running 
5A38 7018 6516 lda ri,nsftof shave we already done this 
SA3C 4E18 OBAD ifnot ri = # HOBAD 
5A40 9140 
5A42 7018 651C lda ri.nsrtf ;check nice-stop flag. 
5A46 SA3D ifnot zero rany stop in progress. 
5A48 8B36 if minus ynice halt 

Trap 1700,.<;Imp going down (OPRTOR INIT) - page 427> ;tell NCC about it. 

SA4A E3CO 
5A4C 3008 SF8E set igdflag ;send an imp going down 
5A50 48FO Ida r7,=0 
5A52 3078 SF8C sta r7.igdown ;use down immediately code 
5A56 4078 SACC call nsleep, toS5sec ;wait 5 seconds for that to happen 
5AS5SA 0008 , 


;stop host traffic by marking them dead. 


5ASC 48F4 lda r7.=hninit shost not init. 
SASE 7018 6322 Ida ri,hosts ;mark all hosts this way. 
repeat 
5A62 5029 6326 lda r2,h2pbik(-r1) pnext host. 
S5SA66 SBO3 ifnot minus shost exists. 
5A68 387A OO1F stab r7.hihd(r2) :mark host 
endif 
SA6C 88FB until loop 
endrepeat 
SAGE 4878 FFFF Ida r7,=-1 ;stop hosts from coming alive 
5A72 3078 62E0O sta r7.myimp 
5A76 4078 SACC call nsleep, toS5sec ;wait for 5 seconds. 


5A7A 0008 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 430 
FAKREL.PLR; 1 PAGE 50 IMP Fakes Reliability 


;stop s/f traffic by giving infinite routing 


5SA7C 3008 651A set nsrutd ;flag - declare lines dead in routing 
5A80 3008 72B2 set rupsnd ;SPF - send update 

5A84 4878 0044 set ®pid = =rutpi spoke routing process 

5A88 30F8 OOAC a 

S5A8C 4078 SACC call nsleep.2 ;need only wait two slow ticks 

5AS80 0002 


3kill off modems 


5A92 7018 6324 lda r1,modems ;all modems 

repeat :;for each modem. 
SA96 5049 635E Ida r4,m2pb1k(-r1) ;modem parameter block. 
SASA 9SBO8 ifnot minus ;modem there. 
5A9C 707C 4000 lock lockm(r4) 
SAAO SAFE 
SAA2 4078 1CF4 call killin 
5AA6 300C 4000 unlock lockm(r4) 

endif 

SAAA 4E90 until ri = =O 
SAAC 81F5 

endrepeat 
SAAE 4078 SACC call nsleep, to5sec ;wait 5S seconds. 
S5AB2 0008 

endif 
5AB4 3008 6518 set nspc ;Calling address 
SAB8 4878 OBAD set nsftof = # HOBAD ;tell fast timeout to stop all procs 
SABC 3078 6516 
endif 
endif 

SACO 3018 651A sta ri,nsrutd ;;nsrtf ;keep out of routing’s hair 
S5AC4 4078 SACC call nsleep,1 ;sleep 1 slow tick always. 
S5AC8 0001 : 
SACA SOB7 endrepeat 


; (OVER) 
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SACC 
SACE 


SADO 
5SAD2 
SAD4 
5SAD6 
SADA 


SADE 
SAE2 
SAE4 
SAEG 


6017 
1076 


4991 
SBOA 
1016 
3068 
4008 


7068 
6016 
SOF6 
6006 


5F94 
1BEE 


5SF94 
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;sleep routine for nice stop. 


routine nsleep, inline ri, 


repeat 
sub ri,=1 
until minus 
push r4 
sta sp,nmsspsv 
tr tossx 
nschk: 
Ilda sp.nsspsv 
pop r1 
endrepeat 
endroutine 


uses r2-rsS 


; time runs out. 


;save stack pointer. 


;restore stack pointer. 
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elejele) .if nz VDHSw 
. INSERT "VDHCOD" 
.ende ;nz VDHSw 


0001 .if nz VHA 
- INSERT "VHA" 
. INSRT VHA 


PAGE 432 
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T3FE 


5SB5SA 
5SB5A 


5c58 
5SC5A 
5csC 
SCSE 


SC60 
SC6O 


OO7F 
0130 


PAGE 1 Virtual Host Addressing 
-Stitle Virtual Host Addressing 


;NSA Platform Network 
;Virtual Host Addressing (VHA) Package 


;Provides for readdressing of messages upon entry to the 
;Platform Network from a Virtual Host Address Space into 
;the Physical Address Space which the IMPs use, and the 
;resolution of such addresses back into Virtual Host 
;Addresses upon exit from the network. 3 


;parameters 
nNVHAi = nimp : lots of space for identity map 
maxvha= D400 

page Vars ; locks on Vars page 


locdef vhalok,<;Lock on VHA inverse translation table> 
vhinit: .blkw 1 ;Flag that zeroes when IMP reinits 


page VHAVars 


table vhinvt ; IMP-to-VHALIS index 
»-bikw nVHAI ; IMPs for now 
endtable vhinvt 
-blkw 1 7end of VHALIS 
vharix: .blkw 1 ;current entry to check 
vharxi: .blkw 1 ;current inverse entry to check 
vhaoser: .blkw 14 ;serial number last check 
table vhalis ;list of VHA address by IMP,host 


.blkw maxvha 
endtable vhalis 
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3D40 


3042 
3D46 
3D4A 
3D4E 
3D50 
3054 
3D56 


3D58 
3D5c 


3D5E 
3D62 
3064 


3D66 
3D68 
3D6A 
3D6C 
3D70 
3D74 
3D76 


3D7A 
3D7E 
3D80 
3D82 
3084 


3D86 
3088 
3D8C 
3D390 
3092 


3D96 


1076 


705B 
781B 
4E18 
9205 
4E18 
9C02 
6006 


7O7C 
8B07 


787B 
9A02 
SOFS 


4015 
3009 
A296 
741B 
381B 
48FO 
307B 


4078 
8A04 
6076 
4FFO 
4007 


48FO 
307B 
381B 
A798 
381B 


SO0EO 


0006 
0005 
OOFC 


0100 


001C 


0007 


0006 
0005 


0006 


3098 


0006 
0007 


0005 


PAGE 2 Virtual Host Addressing 


;Host Input (HI) routine 

;Called after leader has been transformed into "new" 
:(i.e. internal) format in the transaction block, 

;but before MESGET has been called. Transforms from a 
;Virtual to a Physical address. If no mapping is defined 
:defined for this Virtual Address. return a destination 
:;dead, subtype 2 messaae. 


page LCode 


sHIVHA 

;Host Input routine for transforming virtual to 
;Physical addresses. Called with R3/transaction block, 
;R4/host parameter block. Fail if no mapping this VHA. 
;Adjust transaction block address if map def ined. 


routine hivha,arg r3-r4,uses ri 


lda r5,trdstl(r3) 
ldab ri,trhstl+i(r3) 
if ri >= = H100-nfh & ri <= = H100 


return 
endif 
Ilda r7,homode(r4) 
if minus ;new leader . 
; if byte homode(r4) .bit. = H80 :new leaders 
if byte trdstl+1(r3) :physical address 


return 
endif 
eorb ri,r5 
else 
Si) ‘'rt,.6 ;recreate old leader 
ior ri,trdstl(r3) 
stab ri,trhst1l+1(r3) 


clear trdsti(r3) ;but mark trn blk as "virtual" 
endif 
call vhamap : look up physical address 
if fail 
fail return ;no mapping this VHA 
endif 


clear trdsti(r3) 

stab ri,trdsti+1(r3) ;store dest IMP (LH always =O) 
rrilori, H8 :get host number 

stab ri,trhsti+1(r3) ;and store it 


endroutine hivha 
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3D98 
3D9A 
3D9E 


3DAO 
3DA4 
3DA8 
3DAC 
3DAE 
30B0 
3DB4 
3DB6 
3DB8 
3DBC 
3DCO 


3DC2 
3DC4 
3DC8 
3DCC 
3DCE 
3DD0 


1076 
7078 
1076 


7078 
3078 
7618 
820B 
A291 
7019 
9AQ07 
6076 
TOTF 
3078 
6006 


6076 
7O7F 
3078 
6076 
4FFO 
4007 


40BE 


OOB2 
FCOO 
4840 


4842 


OOBO 


FCOO 


OOBO 
FCOO 


PAGE 3. Virtual Host Addressing 

; VHAMAP 

;Look up physical host from virtual one, putting result 

:into R1. If no map defined or out of range, fail return. 

;R1i/virtual host number (0-255), returns physical host, , IMP 
Page LCode 

routine vhamap,arg ri,result r1,local moO 


setmap mO,mapvha ;map in the VHA tables 


if ri < vhalen ;in range 
Sut write 4 ;get word offset 
Ida ri,vhatab(r1) ;get physical address 
ifnot zero ;one is defined 
return 
endif 
endif 


fail return 


endroutine vhamap 
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.comnt | 

7 VHAINV : 
;Look up a virtual host address, given its physical 

;address. Does a quick identity mapping check, then : 
;searched the table for a match. MAY RUN FOR UP TO 

33 MILLISECONDS WORST CASE. 

;Fail return if no Virtual for this Physical 


page LCode 


routine vhainv,arg ri,result ri,local moO 


setmap mO,mapvha :get to VHA tables 
lda r7,r1 ;repack host,,imp to old leader 
srl P72 


eor r7,r1 
and r7,= HFF 


SE 74 ;get word index 
ifnot ri = vhatab(r7) ;not identity map 
lda r7,=-1lvhatab-words ;search forward 
repeat 
until ri = vhatab+lvhatab+words(r7)+ 
until loop not found 
endrepeat 
if loop ;fail case 
fail return :no virtual for this physical 
endif 
add r7,=lvhatab ;get to positive index 
endif 
sri rvs :get a host number 


endroutine vhainv 


Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 437 
VHA .PLR; 1 


3DD2 
3DD4 
3DD8 


3DDA 
3DDE 
3DE2 
3DE4 
3DE8 
3DEA 
3DEC 
3DFO 
3DF2 
3DF6 
SDFA 
3DFC 
3EOO 
3EO2 
3EO6 
3E08 
3EOC 
3E10 


3E12 


3E16 
3E18 
SE1C 
3E20 
3E22 
3E24 


1076 
7078 
1076 


7078 
3078 
A291 
4E18 
8217 
A2A14 
7078 
SAFE 
7229 
7629 
820C 
TO1A 
9A09 
3008 
6076 
TOTF 
3078 
6006 


3008 


6076 
7O7F 
3078 
6076 
4FFO 
4007 


40BE 
OOB2 
FCOO 


OOFE 


B3FC 


5BSA 
5B5C 


5Cc60 
B3FC 


OOBO 
FCOO 


BSFC 


OOBO 
FCOO 
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; INVMAP * 

;Look up a vitrual Host number, given its physical address. 

;Uses calculated inverse tables (1) by IMP, giving index in 

stable 2 for host O of this IMP, and (2) by IMP/Host, giving 
svirtual Host number for each physical Host in the network. 

;Arguments are R1/IMP number, R2/Host on that IMP. 

:Succeed return with Virtual Host number in RI, index 

sinto VHALIS in R2. Fail if no physical host in list. 


page LCode 
routine invmap,arg ri-r2,result ri-r2,local moO 


setmap mO,mapvha :get to VHA tables. 


sil rt 4 ;word index by IMP 
if ri < =lvhinvt ; IMP no. too big 
st) 254 
lock vhalok ;prevent changing 


add r2,vhinvt(r1) 
if r2 < vhinvt+words(r1) ymake sure it’s in range 


Ida ri,vhalis(r2) ;look up virtual name 
ifnot zero ;there is one 
unlock vhalok 
return 


endif 
endif 
unlock vhalok 
endif 
fail return :no VHA this Host/IMP 


endroutine invmap 
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3E26 


3E28 
3E2C 
3E30 
3E32 
3E36 
3E38 
SESA 


3E3C 
SESE 
3E42 


3E44 
3E48 
SE4A 
SE4E 
3E52 
3ES54 
3E58 


3ESA 
3ESC 
3E60 
3E62 


SE66 
3E68 
3E6C 
3E70 
3E72 
3E76 


3E78 


1076 


782C 
781C 
8A07 
707C 
SBO3 
4812 
9010 


SO1E 
4078 
9A13 


7O7C 
8BO9 
777C 
381C 
AG98 
381C 
9007 


A796 
381C 
AGSA 
301C 


9003 
787C 
4E78 
8204 
7O1iC 
E302 


6006 


0015 
0017 


001C 


3DD2 


o001Cc 


4016 
0015 


0016 


0015 
0016 
0015 
OOFC 


0016 


PAGE 6 Virtual Host Addressing 
7 IHVHA 
;Perform Physical to Virtual Host Address Mapping for 
;IH side. Adjusts address in the IH leader area (IHLEDR) 
;in the current parameter block (via R4). 

Page LCode 


routine ihvha,arg r4,uses ri-r2 


ldab r2,ihledr+hsti+i(r4) ;pick up host number 
Idab ri, ihledr+dsti+1(r4) ;get IMP who sent leader 
if zero ;already virutal 
lda r7,homode(r4) :which mode 
ifnot minus ;Old leaders 
lda ri,r2 iget virtual packed, 
br ihvhat ;and stuff it in 
endif 
else ;not already virtual 
call invmap ;got a virtual address? 
if success 
R if byte homode(r4) .bit. = H80 ;new format 
lda r7,homode(r4) ;;sign 
if minus ;new format 
tst r7, ihledr+dsti+foo(r4) :set IMP <- O 
stab r1, ihledr+hsti+1(r4) ;and host <- VH number 
srt nt..'Hs 
stab ri, ihledr+dst1i(r4) 
else . 
ihvhal: 
rrilori1,6 ;7srceh ;just Host 
stab ri, ihledr+hst1+1(r4) 
sri ri, 010 7;7srcei ;just IMP 
sta ri, ihledr+dst1(r4) 
endif 
else ; inverse map failed 
if byte ihledr+hst!l+1(r4)< = H100-nfh :real host, tho 


Ilda ri,ihledr+dsti(r4) ;report IMP number 
Trap 1402,<;IHVHA: No virtual address found> 
endif 
endif 
endif 


endroutine ihvha 
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3E7A 
3E7C 
SE7E 
3E80 


3E82 
3E86 
3E88 
SEBA 


SE8E 
3ES2 
3E94 
3E98 
SESA 
SESE 
3EAO 
SEA2 
SEAG 
SEA8 
SEAA 
SEAC 
SEAE 
3EBO 
SEB2 
SEB4 


SEBG 
SEB8 
SEBA 
3EBC 


1076 
1026 
1036 
1056 


7829 
4855 
9903 
782D 


4E28 
8212 
4E28 
SCOF 
7019 
4852 
4831 
4078 
8A08 
E303 
6056 
6036 
6026 
6076 
4FFO 
4007 


6056 
6036 
6026 
6006 


0009 


65B4 
OOFC 
0100 


0006 


30D2 


PAGE 7 Virtual Host Addressing 
; TSKVHA 
:Task For Us routine to check source host in an 
;incoming packet. R1/M2/packet pointer, 
;R5/ RM message block, if any 
page LCode 


routine tskvha.arg ri/m2,arg r5,local r2-r3,local r5,uses ri 


Idab r2,seqhti(r1) ;assume host in msg 


lda r5,r5 sany RM block? 
ifnot odd 
ldab r2,rmhost(r5) ;:;get RM host number 
endif 
if r2 < = H100-nfh & r2 <= = H100 3a real host 
Ida ri,srch(r1) ;sending IMP 
Ida r5,r2 yremember host for Trap 
lda r3,ri ; and IMP 
call invmap :this port got a VHA? 
if fail ;nope 


Trap 1403,<:TSKVHA: No virtual address this source> 
Fail return 


endif 
endif 


endroutine tskvha 
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FCOO 
5626 


5628 
562C 
562E 
5632 
5634 


5638 
563C 


S63E 
5642 
5644 
5648 
564C 
564E 
5652 
5654 
5656 
565A 
565C 


S65E 
5662 
5666 
5668 
566C 
S6GE 
5670 
5674 
5676 


5678 
S67C 
5680 
5682 


5684 


5686 
568A 
568E 


0200 
1076 


7078 
8A0C 
7078 
48FO 
4818 


1079 
88FE 


3008 
9022 
7078 
7678 
811D 
7048 
4AC2 
9B04 
7648 
9202 
48CO 


3048 
4078 
SAOF 
7018 
4A91 
SBO04 
7618 
9202 
4890 


3018 
4078 
9A02 
6006 


E301 


3008 
7078 
3078 
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7;VHA timeout routine VHAREL 
;check serial number and one entry in VHALIS each wakeup 
;if serial number has changed or the entry lookw wrong, 
;recompute the inverse tables VHINVT/VHALIS. 
page VHACode 
routine vharel,uses ri-r5S 
T3FE ifnot vhinit ;system reinit 
BSFC cklock vhalok ; lock out others 
Ida r7,=0 
0100 Ida r1,=lvhinvt+words :empty the reverse table 
repeat 
5B5A sta r7,vhinvt(-r1) ;clear all entries 
until loop 
endrepeat 
BSFC unlock vhalok 
else 
5CSE if vhaoser = vhaser ;Same serial # 
483E 
5C5A jlda r4,vharix ;next to check 
add r4,=words : 
if minus } r4 >= vhinvt+Ivhinvt :time to wrap 
5c58 
Ida r4,=0 
endif 
5C5A sta r4,vharix 
S78E call vhichk ;check VHALIS entry 
if success ;so far, so good 
5C5C Ilda ri,vharxi int ois arg to vhmchk 
add ri,=1 
if minus } ri >= vhalen 
4840 
Ida ri.=0 
endif 
5C5C sta ri,vharxi 
5768 call vimchk ;check forward map’ " 
if success 7all’s in order 
return 
endif 
endif 
Trap 1401,<;VHAREL: Detected VHA table error> 
endif 
endif 
T3FE set vhinit ;note intialization 
483E set vhaoser = vhaser ;note where we are now 
5C5E 


; (OVER) 
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5692 
5696 


5698 
569C 
5S69E 
56A0 
5G6A4 
56AG 
S6AA 
S6AC 
SG6AE 
56BO 
56B2 
56B4 
56B8 
56BC 
56BE 
56CO 
56C2 
56C6 
56C8 


7018 
A291 


5039 
SA4C 
AGB8 
7829 
A2A1 
4E28 
9203 
E305 
9043 
A691 
A2B1 
723A 
4E38 
9207 
E304 
48FO 
3078 
4817 
9039 


4840 


4842 


4843 


OOFE 


5SBSA 
0320 


T3FE 


;Get her 
;Put VHA 


Ida ri 
sll ri 
repeat 
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e when inverse table must be recomputed 
addresses into reverse lookup table 


,vhalen 
ae | 


repeat 
lda r3,vhatab(-r1) 


if 


; (OVER) 


not zero 

sri r3, H8 

Idab r2,vhatabt+1i(r1) 
sll r2,1 

if r2 >= =lvhinvt 


Trap 1405,<;VHAREL: 
else 

srl ori, 

sil raat 

add r3,vhinvt(r2) 

if r3 >= =lvhalis 


Trap 1404,<;VHAREL: 
clear ri,vhinit 


break 
endif 


;length of this VHA table 
;in bytes 


;next V->P mapping 
sa valid one . 
;Host number 


;and IMP * 2 ° 
;too big for inverse table 


VHA IMP number too big> 
; true VHA number 


:slot this Host/IMP 
;out of inverse 1isSt space} 


Too many VHA numbers> 
;try to reinit anyway 


;but stop checking 
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7;Get here looking to insert a new VHA. See whether its 
; slot is available, and make roon for it if not. 


56CA 763A 5B5C if r3 >= vhinvt+words(r2) 7must make room} 
56CE 9230 
56D0 484B 0002 Ilda r4,=words(r3) ;make at least one slot 
5604 714A SBSC sub r4,vhinvt+words(r2) ; total needed 
56D8 1016 save ri,r3 :will need these later 
56DA 1036 
56DC 7018 SC58 Ilda ri,vhinvt+livhinve ;end of VHALIS 
56EO 4A14 add ri,r4 ;new end 
5GE2 48FO Ida r7,=0 

repeat move up end of VHALIS 
56E4 1079 5C60 sta r7,vhalis(-r1) ;clearing as we go 
SGE8 7618 5C58 until ri = vhinvt+Ivhinvet 
SGEC 81FC 

endrepeat 
56EE 3248 5C58 addm r4,vhinvt+lvhinvet ;update end index 
56F2 4818 OOFE Ida ri,=lvhinvt ;next IMP’s indices to move 

repeat >for all IMPs higher than ours 
56F6 5059 SBS5C Ilda r5,vhinvt+words(-ri) ;where next IMP now is 
SGFA 4E12 until ri = r2 
5GFC 9117 
S6FE 4835 Ilda r3,r5 
5700 4934 sub r3,r4 yand where it was 
5702 7078 B3FC lock vhalok ;prevent access while changing 
5706 SAFE é 

repeat 
5708 7639 SBS5A until r3 = vhinvt(r1) suntil got our IMP 
570C 9108 
570E SO7B S5C60 set vhalis(-r5),r7 = vhalis(-r3) 
5712 107D SC60 
5716 357B 5C60 eorm r7,vhalis(r3) ;and clear old one 
571A SOF7 endrepeat 
571C 3059 SBSA sta r5,vhinvt(ri) ;update this IMP’s base 
5720 3008 B3FC unlock vhalok ;table is consistent again 
5724 4078 1C34 call tsleep ;rest often 
5728 SOE7 endrepeat 
572A 6036 restore ri,r3 ;get back our regs 
572C 6016 
endif ;slot is now available 


7 (OVER) 
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572E 
5732 


5734 
5738 


573A 
573E 
5740 


5742 
5746 


5748 
574A 
S74E 


5750 
5752 


5756 
S75A 


S75C 
5760 
5762 


5764 


5766 


SEBE 
3ECO 
3EC4 
3EC6 
SECA 
SECE 
3ED2 
FCOO 


301B 
A291 


4F18 
8ABO 


4078 
4E90 
81AC 


7048 
SAOF 


49C2 
4078 
8A04 


48FO 
307C 


4F48 
BAF7 


4078 
4ECO 
81F3 


E300 


SO8E 


1076 
7078 
1076 
7078 
3078 
4078 
4008 
0200 


5C60 


OO1E 


1034 


5C58 


5S78E 


5C60 


OO1E 


1034 


40BE 


OOB2 
FCOO 
5626 
1BCE 


PAGE 11 Virtual Host Addressing 


:;Here with VH address to insert in VHALIS slot 


sta ri,vhalis(r3) ;and set itnverse VH address 
sii e1,3 sand fix to word offset 
endif 
endif 
while ri .bit. = HIE 7:16 entries per sleep 
endrepeat 
call tsleep 
until ri = =0 
endrepeat 
Ilda r4,vhinvt+lvhinvt snow must check for old VHAs 
ifnot zero ;if there are any at all... 
repeat 
repeat 
sub r4,=words 
call vhichk ;this entry okay 
if fail :no, but maybe just old 
; clear vhalis(r4) 7so get rid of it 
Ilda r7,=0 
sta r7,vhalis(r4) 
endif 
while r4d .bit. = Hie 716 entries per sleep 


endrepeat 
call tsleep 
until r4 = =O 


endrepeat 
endif 
Trap 1400,<;VHAREL: finished VHALIS recomputat ion> 


endroutine vharel 


T=====CALLIS set vharel to global (call it avharel) 


global qvharel=vharel 
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FCOO 
5768 


576A 
576C 
576E 
5772 
5774 
5776 
5778 
577C 
5780 
5782 
5784 
5786 
5788 
578A 


578C 


S78E 


5790 
5794 
5796 
579A 
579C 
579E 
57A0 
S7A2 
57A4 


S7AG 


0200 
1076 


4831 
9A10 
4078 
9A0D 
4821 
AGAB 
4B18 
4078 
SA03 
4E13 
9104 
6076 
4FFO 
4007 


6006 


1076 


701C 
9A09 
4078 
9A03 
4E24 
9104 
6076 
4FFO 
4007 


6006 
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;Routines to check VHA entries 


; VHMCHK 

; looks up physical address from virtual, than looks up 
;virtual fromt he result. Fail if they don’t match. 
;R1/ VHA to look up, returned in R3. RI returns reverse 
;VHA, R2 index into VHALIS for inverse lookup but only 
:in succeed case. 


page VHACode 


routine vhmchk,arg ri,result ri-r3 


Ilda r3,ri ;remember our argument 
ifnot zero ;no need to check empties 
3D98 call vhamap ;get physical address 
if success ;if there is one.. 
Ilda r2,r1 ;unpack the result’ 
srl r2, H8 ;just Host 
OOF F and r1,= HFF ;just IMP . 
3002 call invmap now inverse map it 
if fail } ri <> r3 jmap problems 


fail return 


endif 
endif 
endif 


endroutine vhmchk 


; VHLCHK 

;Check indicated entry in VHALIS 

;VHMCHK does all the work; R4 is index of VHALIS entry 
;to check. 


routine vhAlchk,arg r4,result ri-r4 


5C60 lda ri,vhalis(r4) ;get the VHA to check 
ifnot zero ;if there’s one here 
5768 call vhmchk ;validate it 
if fail } r2 <> r4 :problems with this entry 


fail return 


endif 
endif 


endroutine vhichk ‘ 
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.endc 


FCOO 0000 $f instage :do finish stuff. 
40DE 7050 
40EO 7B00 
40E2 7E80 
40E4 7EOO 
40EG FFFF 
40E8 FFFF 
4OEA FFFF 
4OEC FFFF 
40FA OOO1 
40FC OOO1 
40FE 0000 
4100 4000 
S59E 0002 
4104 0010 
4106 0020 
4108 0030 
410A 0050 
410C 0006 
410E 0016 
4110 0022 
4112 OO3A 
4114 0004 
4116 E100 
4118 E200 
411A F100 
411C F200 
5016 5020 
5018 5056 
501A S3EA 
501C 5496 
501E 1072 
40BA 0000 
4OBC 567C 
031A O4DC 
0314 00C8 
0316 0001 
0318 0001 
0320 EOOO 
0322 FOOO 
0324 8000 
0326 8000 
; Fitable ;put in init tables, etc. 

FCOO O6OO $finimp :fix IMP parameters 
40D6 7420 


Istlim <LCode,RelCode,DDTCode, Warm, FakCode, PkaCode> 
Istlim <LTVars.LVars,Vars,RelVars,DDTVars, VHAVars,PkgVars, FakVars> 
Istlim <VarPat,LKPatch,RKPatch> ; 
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-iif p2, .outsym imp.sym 


